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CHAFTEB  1  THE  PROGEAH  AND  THE  COMPUTES 


After  writing  a  program,  the  program  must  be  input  to  the 
computer.  Programs  can  be  input  to  a  computer  on  punched  cards, 
paper  tape,  magnetic  tape  or  from  a  teletype  connected  directly 
to  the  computer.  Most  beginning  courses  in  computer  science  use 
punched  cards.  This  chapter  examines  the  way  the  cards  should  be 
punched  so  they  can  be  properly  interpreted  by  the  computer  and 
the  ordering  of  the  cards  before  reading  them  into  the  computer. 

Once  the  program  has  been  read  into  the  computer,  it  is 
executed  and  the  results  of  the  execution  are  output.  This  output 
can  occur  as  printed  paper,  punched  cards,  paper  tape  or  magnetic 
tape.  This  chapter  will  also  examine  hew  the  printed  paper  output 
is  arranged  because  this  form  of  output  is  most  commonly  used. 

Those  whe  are  familiar  with  running  jobs  on  the  University 
of  Illinois  Computer  Systen  should  skim  this  chapter  for 
specifics  concerning  the  use  of  the  PL/C  language  before 
proceeding  to  Chapter  2.  Others  should  read  this  chapter  in 
detail. 


1.  1  THE  PBOGBAH  INPUT  - 


Figure  1.1  shows  the  order  of  the  cards  in  a  PL/C  program  deck 
that  aust  be  used  when  running  en  the  University  of  Illinois 
Computer  Systea. 


The   JOB   CARD   is  a  green  card  that  is  placed  on  the  top  of 


JOB  CABE 
ID  CABCS 
//  EXEC  PLC 
$PL/C 

Program  Statements 
SDATA 

Data  Cards 

/* 


FIGUBE  1.1  -   THE   PL/C   PBOGBAH  CABD  DECK 
ABRANGEHENT 


every  program  deck  before  reading  it  into  the  computer.  A  stack 
of  JOB  CAEDs  is  found  next  to  all  card  readers.  Whenever  a  job  is 
read  into  the  machine,  place  a  new  JOB  CABD  on  the  top  of  the 
deck.  It  notifies  the  computer  that  what  follows  is  a  job  to  be 
run. 

The  ID  cards  provide  information  to  the  operating  system 
about  the  job.  Normally  two  ID  cards  are  used.  On  the  first  is 
specified  the  user's  name  and  the  number  of  the  account  which 
should  be  charged  for  the  job.  The  second  card  has  the  code  word 
associated  with  the  specified  account  number,  what  system  the  job 
should  be  run  on  (HASP,  EXPBESS,  etc.)  and  what  computer 
resources  should  be  allocated  for  the  job  (number  of  lines,  time, 
amount  of  storage,  etc.) .  Further  information  on  the  ID  cards  can 
be  obtained  by  reading  the  CSO  BEFEBEHCE  GUIDE  S01.N01  on  ID 
cards.  Two  possible  ID  cards  are  given  in  Figure  1.2.  ID  cards 
are  given  to  the  students  by  the  T.A.  cr  grader  at  the  beginning 
of  the  semester.  A  copy  of  the  ID  cards  should  be  made  and  stored 
in  a  safe  place  in  case  the  originals  become  lost  or  damaged.  If 
the  ID  cards  are  lost,  notify  the  T.A.  immediately  so  a  new  set 
of  ID  cards  can  be  issued. 

The  //  EXEC  PLC  card  states  that  the  program  should  be 
executed  using  the  PL/C  compiler.  Care  must  be  taken  in  punching 
the  ID  cards  and  the  EXEC  card  to  make  sure  that  they  are  punched 
exactly   as  shewn.  They  should  start  in  column  1  on  the  card  with 
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only  one  blank  used  where  blanks  ace  shown.  No  blanks   should   be 


/♦ID  PS=(6974#50Q1000) , MAME=« DANKEL1 
/♦ID  CO DE=DQR,SYSTEM= EXPRESS, LINES=350 


FIGURE  1.2  -   SAMPLE   ID    CARDS 


added  in  other  places  because  they  will  result  in  the  program  not 
being  executed  or  executed  without  the  requested  computer 
resources. 

All  cards  to  this  point  have  been  information  to  the 
operating  systew,  telling  it  what  should  be  done  with  the 
program.  The  $PL/C  card  tells  the  PL/C  compiler  that  what  follows 
is  the  start  of  a  PL/C  program.  Several  options  are  available 
when  the  program  is  run  and  if  any  of  these  is  desired  it  must  be 
specified  on  this  card.  Options  that  are  available  are  listed  in 
Appendix  A.  The  statements  of  the  actual  program  follow  in  the 
order  that  the  programmer  wishes  them  to  be  executed. 

The  IDATA  card  tells  the  compiler  that  the  program  has  ended 
and  data  cards  follow.  The  data  cards  follow  the  JDATA  card  in 
the  order  that  they  will  be  read  by  the  computer. 

The  /♦  card  tells  the  operating  system  that  this  is  the  end 
of  this  program  and  that  is  should  now  get  ready  for  the  next 
job. 


1.2  CARD  FORMATS  - 


For  PL/C  jobs  run  on  the   University   of   Illinois  Computer 
System  the  following  card  formats  must  be  observed: 

1)  All  ID  and  operating  system  cards  must 
start  in  column  1.  These  cards  are  easily 
identifiable  because  they  start  with  /♦  or 
//. 
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2)  PL/C  special  cards  must  also  start  in 
column  1.  These  cards  can  be  identified  by 
their  starting  $  • 

3)  The  actual  PL/C  program  cards  oust  be 
started  after  column  1  and  must  not  continue 
beyond  column  72.  Columns  73-80  are  reserved 
for  the  numbering  of  the  cards  in  case  the 
cards  should  accidentally  be  dropped  and 
their  order  disturbed. 

4)  Data  cards  can  use  all  80  eclumns  of  the 
card.  Care  should  be  taken  to  ensure  that 
data  cards  do  not  contain  /*  or  //  in  columns 
1  and  2. 

Figure  1.3  sbows  a  sample  program  as  it  night  appear  before  being 
read  into  the  computer. 


1.3  FRCGBAH  OUTPUT  - 


Programs  run  on  the  University  of  Illinois  Computer  System 
will  always  has  the  following  information  printed  in  the  program 
output: 

1)  Header  -  Starts  with  the  program's  job 
number,  programmer's  name  and  the  time  at 
which  the  job  was  run  being  printed  out  on 
six  consecutive  lines.  This  is  done  to  easily 
identify  the  start  of  each  person's  output. 
Following  this  is  several  lines  giving  the 
computer  resources  requested  by  the  program. 
For  example,  the  amount  of  time  it  has 
reguested  to  use,  the  maximum  number  of  lines 
it  will  print,  what  system  it  should  run 
under  (EXPBESS,  HASP,  etc.)  and  the  type  of 
computer  language  that  the  program  is  written 
in.  This  is  produced  by  the  operating  system 
which  controls  what  the  computer  does. 

2)  Source  Listing  -  Consists  of  a  listing  of 
the  statements  of  the  program  and   any   error 
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//J9991318  JOB 

/♦ID  PS= (6974,5001000) , NAHE=« DANKEL1 

/♦ID  CODE=DQBfSYSTEH=EXPBESS,LINES=350 

//  EXEC  PLC 

$PL/C 

/♦  CS  121  MP  0  ♦/ 

/♦  PROGRAM  10  PRINT  A  TABLE  OP  SQUARES  ♦/ 

/♦  COMMENTS  SUCH  AS  THIS  AND  THE  ONES  ABOVE  ABE    ♦/ 
/♦  IGNORED  BY    THE  COMPUTEB  ♦/ 

TABSQ:PROC£DUBE  OPTIONS (MAIN) ; 
DCL  (K,M,N)  FIXED  DEC; 

/♦  READ  NUMBER  OF  SQUARES  DESIRED  ♦/ 

GET  LIST(N) ; 

/♦    PRINT    HEADINGS  ♦/ 

PUT    LIST(«IABLE    OF    SQUARES    UP    TO»,N); 
PUT    SKIP(2)    LISTpNUMBEB',  'SQUABE1)  ; 
H-0; 

/♦    REPEAT    NEXT    STATEMENTS    N    TIMES  ♦/ 

DO    WHILE(M<N) ; 

M=MO; 

K=M+M; 

PUT    SKIP    LIST(M,K)  ; 

END; 

ENC    TABSQ; 
$DATA 
32 
/* 

FIGUBE    1.3    -       A    SAMPLE    PBOGBAN 
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or  warning  messages  that  they  night  have 
caused. 

3)  Cross  Reference  and  Attribute  Listings 

If  the  program  is  written  in  PL/C  or  PL/I  a 
listing  of  all  the  identifiers,  where  they 
are  used  in  the  program,  and  what  type  of 
identifiers  they  are  will  be  given  at  this 
point.  PL/I  will  always  give  this  listing 
unless  specifically  reguested  not  to  give  it. 
PL/C  on  the  other  hand,  will  not  give  this 
listing  unless  asked  to.  (  See  Appendix  A) . 

4)  Execution  Output  -  Any  output  specified  by 
the  program  is  printed  at  this  point.  The 
output  is  always  started  at  the  top  of  a  new 
page. 

5)  Post-mortem  Dump  -  If  the  program  is  run 
under  PL/C  a  post-mortem  dump  will  be  given. 
This  dump  consists  of  the  following: 

A)   Variables   used   in  the  program  and  their 
values  when  the  program  halted, 
fi)  All  labels  used,  what  statement   they  are 
used   in,   and   the  number  of  times  they  were 
encountered  when  the  program  was  executed. 

C)  A  dynamic  flow  trace  showing  the  last  18 
transfers  that  occurred  during  execution  of 
the  program  -  these  transfers  are  points  in 
the  program  where  the  statements  were  not 
executed  in  numerical  crder. 

D)  The  total  amount  of  storage  used  by  the 
program  while  it  was  executing  and  how  much 
remained  available  at  the  end  of  execution. 

E)  The  amount  of  time  used  to  compile 
(translate)  the  program  from  PL/C  into  the 
machine's  language,  the  time  that  was  used 
for  execution,  and  the  total  time  that  the 
program  used  the  computer. 

6)  Trailer  -  Starts  with  a  six  line  printing 
of  the  programmer's  job  number,  programmer's 
name,  and  the  time  that  the  program  was 
executed.  Also  listed  are  the  turn  around 
time  (time  from  when  the  job  was  read  into 
the   machine  until  it  was  printed) ,  the  total 
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amount  of  ccaputer  resources  that  were  used 
by  the  program,  the  cost  of  the  job,  and  how 
much  money  is  left  in  the  user's  account. 


Figure  1.4  shows  the  output  that  results  from  running  the  program 
shown  in  Figure  1.3. 
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FIGURE    1.U   -    Output    from    the    Sample    Prograa 
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FIGURE    1.U  -    Continued 
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CHAPTER  2  THE  PROGRAM  AND  ITS  STATEMENTS 


"The  computer  is  like  a  malevolent  genius.  If 
you  don't  tell  it  what  to  do,  it  won't  do 
it." 


This  chapter  examines  the  form  in  vhich  programs  should  be 
written  and  the  different  statements  that  can  be  used  in  PL/C. 
The  use  of  each  statement  will  be  explained  with  examples.  For 
further  details  and  examples  consult  the  IBM  System  360  PL/I  (F) 
Language  Reference  Manual  Form  C28-2801,  IBH  System  360  OS  PL/I-F 
Programmer's  Guide  Form  C28-65y4#  and  AN  INTRODUCTION  TO 
PROGRAMMING,  A  STROCTUBED  APPROACH  USING  PL/I  AND  PL/C-7  by 
Richard  Conway  and  David  Gries. 


2.1  GENERAL  PROGRAM  FORMAT  - 


The  statements  that  compose  an  actual  program  must  be  placed 

between   the   $PL/C   and  $DATA   cards.   These  program  statements 

define  where  the  program  starts  and  ends.  Contained  between  these 
two  statements  are  executable  and   non-executable   statements. 

After  a  program  has  been  read  into  a  computer,  the  computer  first 

translates   or  compiles  the   program   into   a   form  that  it  can 

understand.   Executable  statements  are   compiled   into    actual 
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machine  instructions  which  the  computer  will  execute.  Non- 
executable statements  are  used  to  provide  information  to  the 
computer   when   it  compiles  the  program.  Figure  2.1  shovs  how  the 


$PL/C 

NAHE:  PROCEDURE  OPTIONS (MAIN) ; 

Non-executable  Statements 

Executable  Statements 

END  NAHE; 
$DATA 

FIGURE  2.1  -   GENERAL  PROGRAH   FORMAT 


program  is  arranged  in  relation  to  the  PL/C  and  $DATA  cards. 
Details  of  the  PROCEDURE  statement  and  the  END  statement  are 
given  later  in  this  chapter. 

Please  note  that  the  statements  of  the  program  must  be 
punched  in  columns  2  thru  72.  Card  column  1  is  reserved  for 
carriage  control  characters.  These  characters  are  - 

blank    space  one  line  before  printing 

0  space  two  lines  before  printing 
space  three  lines  before  printing 

♦       do  not  space  before  printing  (overprint) 

1  eject  a  page  before  printing 

These  characters  will  not  be  printed  on  the  output  when  used.  Any 
other  characters  occurring  in  column  1  are  assumed  to  have  been 
accidentally  punched  beginning  in  column  1  instead  of  column  2 
and  PL/C  will  generate  an  error  to  identify  this. 

Each  statement  written  in  PL/C  is  ended  with  a  semicolon,  so 
more  than  one  statement  can  occur  on  a  given  card.  This  practice 
is  not  recommended,  however,  because  the  resulting  program  is 
difficult  to  read. 

If  a  statement  is  too  long  and  cannot  fit  on  one  card,  it 
can  be  continued  on  the  next  card.  Because  no  semicolon  is  found 
on  the  first  card,  PL/C  will  assume  the  statement  is  continued  on 
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the  next  card.  Care  must  be  taken  to  insure  that  identifiers  and 
character  strings  are  not  broken  across  cards;  otherwise, 
stateients  can  be  broken  at  any  point. 


2.2  IDENTIFIEBS  - 


Identifiers  are  labels  or  variables  used  within  a  program. 
Labels  are  used  to  identify  particular  statements  in  the  program. 
Variables  are  used  to  store  values  that  the  program  is  using. 
Identifiers  can  contain  a  maximum  of  31  alphanumeric  (alphabetic 
and  numeric)  characters.  They  must  start  with  an  alphabetic 
character  (the  letters  «A*  to  • Z»  and  •$•,  •#•  or  •«•)  and  can 
include  the  break  character,  •_•• 


ALLOCATE  BEGIN  BY  CALL  CHECK  CLOSE  DECLABE 
(DCL)  CO  ELSE  END  ENTRY  EXIT  FLOW  FORMAT  FBEE 
GO  GOTO  IF  NO  NOCHECK  NOFLOW  ON  OPEN 
PBOCEODBE  (PBOC)  POT  BEAD  RETURN  BEVEBT 
SIGNAL  STOP  1HEN  TO  MHILE  WRITE 

FIGOBE  2.2  -  KEYIOBDS  IN  PL/C 

Keywords  are  identifiers  which,  when  used  in  a  special  way, 
have  a  special  meaning.  Keywords  cannot  be  used  as  labels  or 
variables  in  PL/C.  A  list  of  the  keywords  is  given  in  Figure  2.2 
with  all  allowed  abbreviations  for  some  of  the  keywords  following 
in  parentheses. 


Several  legal  and  illegal  identifiers  are  given  in  Figure 
2.3  and  2.4.  Before  continuing  verify  that  these  identifiers  are 
legal  or  illegal. 
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tH    GETT    123    QA4_73    CNT 1_FOR_DOGS    $ 
dHONE    AQM12##    $S_  _A4    HESTER 


FIGOHE  2.3  -  LEGAL  IDENTIFIERS 


8A       _A       A«-B       A//BCD 

A  VERY  VERY  VERY  LONG  VARIABLE  NAME 


FIGURE  2.4  -  ILLEGAL  IDENTIFIERS 


2.3  ASSIGNMENT  STATEMENT  - 


Assignment  stateients  are  used  to  perform  calculations  and 
to  assign  the  result  of  the  calculations  to  variables.  The 
general  form  of  an  assignment  statement  is  shown  in  Figure  2.5. 
•{•  and  •} •  are  used  in  Figure  2.5  and  subseguent  figures  to 
denote  something  that  can  be  repeated  2ero  or  more  times. 


VARIABLE  {  ,  VARIABLE  }  =  EXPRESSION  ; 

FIGURE   2.5   -   GENERAL  FORM  OF  AN  ASSIGNMENT 
STATEMENT 


The  execution  of  an  assignment  statement  proceeds  as 
follows:  First,  the  values  of  the  variables  used  in  the 
expression  are  determined.  The  expression  is  then  evaluated  with 
these  values  to  obtain  the  result.  Finally,  the  resulting  value 
is  assigned  to  each  of  the  variables  specified  on  the  left  of  the 
egual  sign. 
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Suppose  that  an  assignment  stateaent   vas   desired   for   the 
following  equation: 

2(Q) 
E  ♦  C 

A= (2.1) 

D  -  E<F) 

In  examining  a  keypunch  aachine  it  will  be  iaaediately  noticed 
that  equations  can  only  be  punched  in  a  lineac  fashion;  there  is 
no  way  to  punch  exponentiation  or  division  because  they  require 
expressions  to  be  written  on  aore  than  one  line.  Because  of  this, 
special  syabols  are  used  to  represent  the  mathematical  operators. 
These  operators  are  given  in  Figure  2.6. 


SYMBOL     ARITHMETIC  OPERATION 

♦  ADDITION 
SUBTRACTION 

*  HULTIPLICATION 
/  DIVISION 

**         EXPONENTIATION 

FIGUBE  2.6  -  PL/C  ARITHMETIC  OPERATORS 


Using  the  operators  given  in  Figure  2.6,  one  aight  write  the 
above  equation  as  follows 

A=E+C**2*Q/D-E*F;  {2.2) 

However,  a  problem  arises.  Does  assignment  statement  (2.2)  Bean 

2 
C      Q 
A  =  B  ♦ _  E(F)  (2.3) 

D 

or  the  original  equation  (2. 1) ?  In  actuality,  what  the  assignment 
statement  (2.2)  Beans  is  the  second  eguation  (2.3).  This  is  due 
to  a   priority   that   is  assigned  to  each  of  the  operators.  This 
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priority   Scheie   is   given   in   Figure   2.7.    ffhen    assignment 


EXPONENTIATION 
MULTIPLICATION  ANC  DIVISION 
ADDITION  AND  SUBTBACTION 

PIGUBE  2.7  -  PRIORITY  SCHEME  FOR  THE  OPERATORS 
GIVEN  FROM  HIGHEST  TO  LOWEST  PRIORITY 


statements  ace  evaluated,  the  priority  scheie  is  used  to 
determine  the  order  in  which  the  operations  specified  will  be 
carried  out.  All  exponentiation  operations  specified  in  an 
assignment  are  executed  before  any  other  operations  because  they 
have  the  highest  priority.  All  multiplication  and  divisions  are 
performed  and,  finally,  additions  and  subtractions  are  performed. 
Notice  that  this  solves  most  problems  in  interpreting  assignment 
statements,  but  some  problems  still  remain.  For  example,  does 

A  /  B  *  C  (2.4) 


mean 


A 
—  *  C  (2.5) 

B 


or 


and  does 


mean 


A 
(2.6) 

B  *  C 


A  **  b    **    C  (2.7) 
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C 

(  B    ) 


(2.8) 


or 


B    C 
(  A    )  (2.9) 

The  following  rule  applies  to  two  or  aore  operations  of  equal 
priority  that  occur  consecutively: 

If  two  or  more  operations  of  equal  priority 
occur  consecutively,  the  operations  are  to  be 
performed  in  order  froi  left  to  right,  except 
if  the  operations  are  exponentiations,  in 
which  case  the  operations  should  be  performed 
in  order  froi  right  to  left. 

Applying  this  rule  to  equations  (2.4)  and  (2.7)  it  is  found  that 
they  will  be  interpreted  as  equations  (2.5)  and  (2.8), 
respectfully. 

At  anytime  the  priority  scheme  and  ordering  rule  may  be 
changed  by  the  use  of  parentheses.  All  operations  inside  a  set  of 
parentheses  are  executed  using  the  priority  scheme  and  ordering 
rule  before  the  other  operations  so  that  the  proper  grouping  of 
values  can  be  accomplished. 

Using  these  facts,  the  following  assignment  statement  is 
developed  to  express  equation  (2. 1) 

A  =  (B  ♦  C  **  (2  *  Q))    /    (D  -  E  *  F);  (2.10) 

Before  continuing  verify  that  this  assignment  statement  is 
correct. 

As  shown  in  the  general  form  for  assignment  statements,  more 
than  one  variable  can  be  assigned  the  value  computed  by  the 
expression.  These  variables  should  be  placed  to  the  left  of  the 
equal  sign  and  should  be  separated  by  commas.  For  example,  if  A, 
P  and  Z  were  all  to  obtain  the  value  of  the  expression  in  the 
assignment  statement  (2.10)  then  the  statement  could  be  written 

A,  P,  Z  =  (B  ♦  C  **  (2  *  Q))  /  (D  -  E  *  F)  ;     (2.11) 
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2.<*  COMMENTS  - 


Comments  are  non-executable  statements.  They  are  used  to 
provide  information  to  the  programmer  and  others  who  might  look 
at  the  program  about  what  the  program  does.  There  is  nothing 
worse  than  picking  up  a  program  written  a  year  or  two  earlier  and 
trying  to  figure  out  what  it  does  when  there  are  no  comments. 
Comments  aid  the  programmer  when  he  has  not  looked  at  the  program 
in  a  long  time  and  also  aid  someone  else  who  is  locking  at  the 
program.  Comments  should  explain  in  general  what  the  program  does 
and  any  sections  of  the  program  which  are  unclear.  Very  few 
programs  can  be  considered  to  be  over  commented  so  if  in  doubt 
put  in  a  comment.  Students  have  a  very  bad  habit  of  waiting  until 
the  last  moment  to  add  their  comments.  Do  not  wait!  Put  in 
comments  when  the  program  is  originally  written  and  still  fresh 
in  your  mind. 

Comments  are  started  with  a  /*  and  are  ended  with   a   */ 
They   can   occur  anywhere  in  a  program  except  in  an  identifier  or 
character  string.  Figure  2.8  shows  the  legal   use   of   a   comment 
while   Figure   2.9   shows   the   same   statement   with   a   comment 
illegally  used. 


X  =  FIBST  /*  A  LEGAL  COMMENT  */  ♦  SECOND; 
FIGURE  2.8  -  LEGAL  USE  OF  A  COflBENT 

X  =  FI/*  AN  ILLEGAL  COMMENT  */RST  ♦  SECOND; 
FIGURE  2.9  -  ILLEGAL  USE  OF  A  COMMENT 


Remember  that  /*  also  signifies  the  end  of  the  program  if 
punched  in  columns  1  and  2,  so  take  care  not  to  punch  comments 
starting  in  column  1. 


CHAPTEB  2  -  THE  PBOGBAH  AND  ITS  STATEMENTS  21 


Beaember  also  to  end  comments  with  a  */  before  column  73  on 
the  card.  If  a  comment  is  not  ended  or  is  'ended'  beyond  column 
72,  the  statements  ic  the  program  following  the  comment  will  be 
treated  as  though  they  are  part  of  the  comment*  This  will 
continue  until  the  end  of  the  next  comment  is  found. 


2.5  DECLABE  STATEMENT  - 


The  DECLABE  statement  is  a  non-executable  statement  used   to 


DECLABE  IDENTIFIES  ATTRIBUTES; 
FIGUBE  2.10  -  GENEBAL  FOBM  OF  A  DECLABE  STATEMENT 


specify  what  identifiers  will  be  used  in  the  procedure  and  what 
type  of  identifiers  they  are.  The  DECLABE  statement  provides  this 
information  to  the  compiler  so  it  can  set  aside  space  for  these 
variables.  DECLABE  statements  may  be  placed  anywhere  in  a 
procedure  but  are  usually  placed  at  the  beginning  of  the 
procedure  so  they  are  not  confused  with  or  'lost'  in  the 
exeutable  statements. 

Figure  2. 10  shows  the  general  form  of  the  DECLABE  statement. 
IDENTIFIES  is  the  identifier  being  declared  and  the  ATTBIBUTES 
specify  what  type  the  identifier  is.  The  following  two  DECLABE 
statements  define  a  variable  X  which  contains  a  fixed  decimal 
number  and  DOG  which  contains  a  float  binary  number: 

DECLABE  X  FIXED  DECIMAL; 
DECLABE  DOG  FLOAT  BINABY; 

Hore  than  one  identifier  can  be  declared  in  a  DECLABE  statement 
for  example: 
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DECLABE  (  X,  DOG,  PETE)  FLOAT  DECIMAL, 
(  HARRY, MIKE)  FIXED  DECIMAL; 

Note  the  use  cf  parentheses  tc  apply  attributes  to  several 
variables  and  the  use  of  the  comas  to  allow  more  variables  to  be 
declared.  An  alternative  way  of  writing  the  above  DECLABE 
statement  is: 

DECLABE  (<  X,  DOG,  PETE)  FLOAT, 
(  HABBY,  MIKE)  FIXED  )  DECIMAL; 

where  parentheses  are  used  to  apply  the  attribute  DECIMAL  to  both 
groups  of  variables  being  declared. 

Because  every  identifier  aust  have  some  attributes,  default 
values  are  assumed  when  an  identifier  is  not  declared  or  is 
declared  with  no  attributes  given.  These  default  values  are 
assigned  according  to  the  first  letter  in  the  identifier  and  are- 

If  the  first  letter  is  I,  J,  K,  L,  M  or  N 
then  the  identifier's  attributes  are  FIXED 
BINAEY;  otherwise,  ELOAT  DECIMAL  are  used. 

The  following  is  a  list  of  the  commonly  used  attributes.  For 
more  detail  and  a  note  complete  list  consult  AN  INTRODUCTION  TO 
PBOGBAHMING  by  Conway  and  Gries  or  the  IBM  System  360  PL/I 
Reference  Manual. 

1)   Type   Attributes  -  specify  the  type  of  information 
that  the  identifiers  being  declared  can  contain. 

A)  Arithmetic  Variables  - 

1)  Base  -  can  be  specified  as 
either  DECIMAL  or  BINARY.  This 
refers  to  how  the  values  of  the 
variables  are  represented  within 
the  computer.  Note  that  binary 
arithmetic  is  two  to  three  times 
faster  on  an  IBM  360  than  decimal 
arithmetic  and  binary  and  deciial 
are  about  equal  on  an  IBM  370.  For 
this  reason,  try  to  declare 
commonly  osed  arithmetic  variables 
BINABY  in  type. 
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2)  Scale  -  can  be  specified  as 
either  FLOAT  or  FIXED.  Variables 
declared  FLOAT  are  stored  in 
scientific  notation  -  the  position 
of  the  decimal  point  is  allowed  to 
•float'  in  the  number  so  a  maximum 
nuaber  of  significant  digits  of  the 
value  are  kept,  FIXED  variables 
have  the  decimal  point  fixed  to  a 
specific  position. 

3)  Precision  -  specifies  the  number 
of  digits  tc  be  used  in 
representing  the  number.  If  the 
precision  is  not  specified  the 
following  default  values  will  be 
used: 

FIXED  DECIMAL  (5,0) 

FIXED  BINARY  (15,0) 

FLOAT  DECIMAL  (6) 

FLOAT  BINARY  (21) 

The  first  number  is  the  maximum 
number  of  digits  in  the  variable*s 
representation  within  the  machine, 
while  the  second  number,  if  given, 
is  the  number  of  those  digits  that 
are  fractional.  The  maximum  number 
of  digits  that  may  be  specified  is 
15  for  FIXED  DECIMAL,  31  for  FIXED 
BINARY,  16  for  FLOAT  DECIMAL,  and 
53  for  FLOAT  BINARY.  Normally  a 
precision  is  not  specified  for 
arithmetic  variables,  the  default 
values  are  used.  The  range  of 
values  that  variables  an  have  under 
the  various  declarations  with 
default  precisions  is 

-99999  to  99999  for  FIXED  DECIMAL 

-32767  to  32767  for  FIXED  BINARY 

approximately  ±10  **-78  to  ±10***75 
for  FLOAT  DECIMAL 
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approximately  ±2**-260  to  ±10***252 
fO£  FLCAT  BINARY 

B)  Character  String  Variables  -  (see  Chapter 
5  for  additional  inforaation) 

1)  Base  -  aust  be  specified  as 
CHARACTER. 

2)  Scale  -  can  be  specified  as 
VARYING  if  the  variable  is  to  hold 
a  varying  number  of  characters. 

3)  Precision  -  specifies  the  amber 
of  characters  that  the  variable  can 
hold.  A  character  string  variable 
declared  as  VARYING  can  contain 
from  zero  to  this  maximum  number  of 
characters.  Variables  not  specified 
as  VARYING  will  always  contain  this 
number  of  characters.  A  maximum 
value  of  256  can  be  used  in  PL/C. 
This  must  be  specified  when 
declaring  character  string 
variables. 

C)  Bit  String  Variables  - 

1)  Base  -  must  be  specified  as  BIT. 

2)  Scale  -  can  be  specified  as 
VARYING  if  the  variable  is  to  hold 
a  varying  number  of  bits. 

3)  Precision  -  specifies  the  number 
of  bits  that  the  variable  can  hold. 
A  bit  string  variable  declared  as 
VARYING  can  contain  from  zero  to 
this  maximum  number  of  bits. 
Variables  not  specified  as  VARYING 
will  always  contain  this  number  of 
bits.  A  maximum  value  of  256  can  be 
used  in  PL/C.  This  must  be 
specified  when  declaring  bit  string 
variables. 
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D)   Label   Variables  -  the  only  specification 
for  label  variables  is  the  base  LABEL. 

2)  Initial  Attributes  -  this  can  be  used  to  give 
initial  or  starting  values  to  variables.  Only  constants 
not  expressions  can  be  specified.  Simple  variables  and 
arrays  cannot  be  initialized  together.  The  initial 
values  are  assigned  to  the  variables  only  once,  when 
the  program  in  ccnpiled. 

Array  initial  values  are  assigned  in  row-major 
order  (the  rightmost  subscript  is  varied  the  fastest) . 
If  not  encugh  values  are  given,  the  remaining  array 
elements  are  not  initialized,  while  if  more  values  are 
given  than  array  elements,  the  extra  initial  values  are 
ignored. 


DECLARE  (I  FIXED  BINARY, 

(J,K)  FIXED  DECIMAL)  INITIAL  ( 15)  ; 
DECLARE  CAT  (5)  FLOAT  DECIMAL  (2) 

INITIAL(1,2,3,4,5,6)  ; 
DECLARE  DOGS (5)  CHARACTER ( 10)  INIT ( (3)  (• PUPPY* ) ) 
DECLARE  MICE  CHARACTER  (10)  VARYING; 
DECLARE  (A,B)  FIXED  DECIMAL  INIT  (5,  10); 


FIGURE  2.11  -  SAMPLE  DECLARATION  STATEMENTS 
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CHARACTER  in  type.  Because  VARYING  is  not  specified,  each  element 
of  the  array  will  contain  ten  characters.  Notice  the  replication 
factor  used  in  the  initialization  specification.  It  causes  the 
first  three  elements  of  the  array  to  receive  the  characters 
*  PUPPY'  followed  by  five  blanks.  The  remaining  two  elements  in 
the  array  are  given  no  initial  value.  The  next  declaration  is  for 
the  variable  NICE  which  can  contain  from  zero  to  ten  characters. 
No  initial  value  is  given  to  NICE,  so  its  value  at  the  start  of 
the  execution  cf  the  program  is  undefined.  The  last  declaration 
statement  shows  a  common  programming  error.  The  programmer 
intended  to  declare  A  with  an  initial  value  of  5  and  B  with  an 
initial  value  of  10.  But  because  A  and  B  are  declared  together, 
they  both  receive  a  starting  value  of  5.  The  initial  value  of  1 0 
is  ignored. 


2.6  DO  STATEMENT 


The  DO  statement  is  used  to  specify  that  a  group  of 
statements  is  to  be  executed  several  times.  Corresponding  to 
every  DO  statement  is  an  END  statement  which  specifies  the  limits 
of  the  statements  to  be  executed  repetitively.  The  three  basic 
forms  of  the  DO  statement  are  examined  below. 


2.6.1  NONITERATIVE  DO 


The  noniterative  or  simple  DC  statement  is  the  most 
elementary  form  of  the  DO.  It  causes  all  of  the  statements  up  to 
the  END  statement  to  be  executed  once  and  only  once.  Figure  2.12 
shows  how  this  statement  might  appear  in  a  program. 

This  form  allows  ail  statements  between  the  DO  and  the  END 
statements  to  be  counted  as  though  they  were  one  statement. 
Normally  this  statement  is  used  when  more  than  one  statement 
needs  to  be  executed  in  a  THEN  or  ELSE  clause  of  an  IF  statement. 
For  more  information  see  section  2.9  on  IF  statements. 
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DO; 
END; 


FIGURE  2.12  -  GENERAL  FORM  OF  THE  NONITERATIVE  DO 
STATEMENT 


2.6.2  ITERATIVE  DO 


The  iterative  DC  is  used  to  repeat  a  group  of  statements  a 
specific  number  cf  tines.  Figure  2.13  shows  the  general  form  of 
this  DO  statement. 


DC  VAR=STRT  TO  STP  B?  INCR; 


END; 

FIGURE  2.13  -  GENERAL  FORM  OF  THE  ITBRATIVE  DO 
STATEMENT 


STRT  is  the  initial  or  starting  value  given  to  variable  VAR, 
STP  is  the  final  or  stopping  value, and  INCR  is  the  incremental 
amount.  STRT,  STP  and  INCR  can  be  either  constants  or 
expressions.   The   iterative   DO  statement   is  executed   in  the 
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following  Banner.  First,  the  values  of  STBT,  STP  and  INCB  are 
determined.  Once  these  values  have  teen  deterained,  they  cannot 
chanqe.  The  variable,  VAB,  is  assigned  the  value  of  STBT.  A  check 
is  made  to  see  if  the  incremental  value  is  positive  cr  negative. 
If  positive,  a  test  is  lade  to  make  sure  that  the  value  of  VAB  is 
not  greater  than  the  stopping  value;  if  the  incremental  value  is 
negative,  the  test  is  made  for  the  value  of  VAB  being  not  less 
than  the  stopping  value.  If  the  test  is  true,  the  statements  of 
the  loop  are  executed.  Hhen  the  END  statement  is  encountered,  the 
value  of  the  variable  is  incremented  by  INCB  and  the  test  is 
performed  again.  This  process  is  continued  until  the  test  fails. 
The  computer  will  then  start  executing  the  statements  immediately 
following  the  END  statement  of  the  loop.  Examine  the  sample 
program  segment  in  Figure  2.14.  The  iterative  loop  will  cause  the 


A  =  0; 

DC  1=1  TO  5  BY  2; 
X:A=A+I; 

ENC; 


FIGOBE  2.14  -  SAMPLE  ITEBATIVE  DO  LOOP  HITH 
CONSTANT  VALUES 


1.  3, 


statement  labeled  X  to  be  executed  for  values  of  I  egual  to 
and   5.   The   value  that  I  will  have  when  the  looping  stops  is  7. 
Verify  that  these  values  are  correct.  What  is  the   value   that   A 
will  have  after  execution? 

Figure  2.15  shows  the  same  basic  iterative  DO  loop  with  an 
expression  for  the  TO  clause.  Bemember  that  the  initial,  stopping 
and  incremental  expressions  are  evaluated  before  the  loop  is 
executed  and  remain  constant  for  as  lonq.  as  the  looj)  is 
executing.  The  TC  clause  is  then  evaluated  to  11  and  that  value 
remains  until  the  loop  is  exited.  This  causes  the  loop  to  be 
executed  for  values  of  I  egual  to  1,  4,  7#  and  10.  The  final 
value  for  I  is  13  and  the  statements  of  the  loop  are  not  executed 
with  this  value.  Again  verify  that  these  values  are  correct  and 
determine  the  value  that  A   will   have   after   execution   of   the 
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statements. 


A^10; 

DO  1=1  TO  A+1  BY  *3; 

X:A=A+I; 

END; 


FIGURE  2.15  -  SAMPLE  ITERATIVE  DC  LOOP  WITH 
EXPRESSIONS 


A=10; 

DO  I=A  TO  1  BY  -2; 
X:A=A+I; 

END; 


FIGURE  2.16  -  SAMPLE  ITERATIVE  DO  LOOP  WITH  A 
NEGATIVE  INCEEMENT 


Figure  2. 16  illustrates  an  iterative  DO  loop  with  a  negative 
increment.  Because  the  increment  is  negative  the  test  is  made  for 
the  value  of  I  being  less  than  the  TO  clause  value  of  1.  The  loop 
is  executed  for  values  of  I  egual  to  10,  8,  6,  4,  and  2. 

The  iterative  DO  loop  can  also  be  written  without  specifying 
a  TO  or  BY  clause.  If  the  BY  clause  is  not  specified,  it  is 
assumed  to  be  ♦  !•  Figure  2.17  illustrates  such  a  DO  loop. 

Because  a  BY  clause  is  not  given  it  is  assumed  to  be  ♦ 1   and 
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the   statement   labeled   X   will   be   executed   6   times.   By  not 


A=0; 

DO  1=5  10  10; 
X:A=A+1 ; 

END; 


FIGURE  2.17  -  SAMPLE  ITERATIVE  DO  LOOP  HITHOOT  A 
BY  CLAUSE 


specifying  a  TC  clause,  an  infinite  loop  can  be   created.   Figure 


A  =  0; 

DO  1=1  BY  2; 
X: A=A*I; 

END; 


FIGURE  2.18  -  SAMPLE  ITERATIVE  DC  LOOP  WITHOUT  A 
10  CLAUSE 


2. 18  illustrates  an  infinite  loop.  Each  tine  the  END  statement  is 
encountered,  I  is  incremented  by  2  and  because  no  TO  clause  is 
specified,  the  statement  labeled  X  is  then  executed  with  no 
stopping  test  being  made.  This  loop  will  continue  to  be  executed 
until  the  job  containing  it  exceeds  its  time  limit. 

Note  that  whenever  the  value  of  the  variable  exceeds  the  TO 
clause  value,  execution  of  the  statements  in  the  loop  will  stop. 
So  if  the  initial  or  starting  value  exceeds  the  TO  clause  the 
statements  of  the  loop  will  net  be  executed  even  once. 
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2.6-3  DO  WHILE 


The  DO  WHILE  statement  is  used  to  repeat  a  group  of 
statements  like  the  iterative  DO  but  is  in  many  vays  simpler  than 
the  iterative  DO  statement.  Figure  2.19  shovs  the  general  form 
for  the  DO  WHILE  statement.  Notice  that  only  a  condition  is 
specified  in  the  DO  statement.  This  CONDITION  is  evaluated, 
resulting  in  either  a  true  or  false  value.  If  the  condition  is 
true,  the  statements  between  the  DO  and  END  statements  will  be 
executed.   The  condition  is  then  retested  and  if  it  is  still  true 


DO  WHILE  (CONDITION)  ; 

• 

• 
• 

END; 

m 
■* 

• 
• 

FIGURE  2-19  -  GENERAL  FORM  OF  THE  DO  WHILE  STATEMENT 


the  statements  within  the  loop  are  again  executed.  This  process 
is  repeated  until  the  condition  becomes  false.  The  looping  is 
then  stopped  and  execution  continues  with  the  first  statement 
following  the  END  statement  for  the  loop.  The  condition  is  tested 
upon  the  initial  entry  to  the  loop  and  every  time  the  loop  is  to 
be  repeated  (whenever  the  END  statement  is  encountered) . 

Figure  2.20  shovs  a  sample  DO  WHILE  loop.  Note  the  use  of 
the  PL/I  logical  OR  symbol  (])  to  form  compound  condition.  As 
long  as  either  I<=5  or  A=-1  the  loop  will  continue  to  be 
executed.  when  the  condition  is  initially  tested,  it  is  found  to 
be  true  because  I  is  less  than  5.  The  statements  of  the  loop  are 
executed  resulting  in  1=2  and  A=0.  The  condition  is  retested  and 
found  to  be  true  because  I  is  less  than  5.  The  statements  of  the 
loop   are   executed  resulting   in  1=4  and  A=-1.  The  condition  is 


CHAPTER  2  -  THE  PROGBAH  AND  IIS  STATEMENTS  32 


tested  and  found  to  still  be  true  because  I  is  less  than  5  and 


1=0; 
A=1 ; 
DO  WHILE  (I<=5  |  A  =  -1) ; 

1=1+2; 

A=A-1; 

END; 


FIGURE  2-20  -  SAMPLE  DO  WHILE  STATEMENT 


is  equal  to  -1.  Again  the  statements  in  the  loop  are  executed 
resulting  in  1=6  and  A=-2.  When  the  condition  is  now  tested  it  is 
found  to  be  false-  The  loop  is  exited  and  execution  continues 
with  the  statement  following  the  END  statement. 


2.7  END  STATEMENT 


The   END   statement  is  used  to  end  PROCEDURES  and  DO  groups. 
Figure  2.21  shows  the  general  form  of  the  END  statement.  LABEL  is 


END  {  LABEL  }  ; 
FIGUBE  2.21  -  GENERAL  FORM  OF  AN  END  STATEMENT 


the  statement  label  given  to  the  PROCEDURE  or  DO  statement  which 
matches  this  END  statement.  If  the  label  is  used,  a  check,  is  made 
to  make  certain  that  the  END  statement  truly  does  correspond  to 
the  DO  or  PROCEDURE  statement  with  that  label.  If  that   DO   group 
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or  PROCEDURE  has  already  been  ended,  an  error  message  will  be 
given  and  the  label  renoved  from  the  END  statement.  If  the  END 
statement  occurs  too  early  (i.e.,  ether  DO  groups  or  PROCEDURES 
have  not  yet  been  ended) ,  PL/C  and  PL/I  will  insert  the  needed 
END  statements  without  an  error  or.  warning  message.  Poi  this 
reason,  it  is  not  recommended  that  the  labels  be  used  on  END 
statements.  Hake  certain  that  END  statements  occur  in  the  right 
places  and  that  none  are  left  out,  otherwise  the  logic  of  the 
program  could  be  completely  changed. 


2.8  GET  AND  PUT  SIATEHENTS 


One  important  feature  of  all  computer  languages  is  the 
ability  to  GET  (read)  and  PUT  (write)  information.  without  these 
statements  a  program  cannot  communicate  with  the  outside  world, 
obtain  values  to  use  in  the  calculations  or  return  the  values 
that  have  been  computed.  Several  forms  of  the  statements  exist 
and  examination  will  start  with  the  various  forms  of  the  GET 
statement. 


2.8.  1  GET  STATEMENT 


The  GET  statement  is  used  for  reading  information  from  the 
data  provided  to  the  program.  Figure  2.22  shows  the  various  forms 
of  the  GET  statement.  Several  OPTIONS  are  available  to  be  used. 
Any,  all  or  none  of  these  OPTIONS  can  be  used  in  any  of  the  forms 
of  the  GET  statement.  These  OPTIONS  are: 


1)  FILE(FILE_NAM1)  -  This  allows  the  programmer  to 
specify  the  place  where  the  computer  should  go  to  read 
the  information  reguested  in  this  statement.  Normally, 
the  programmer  wishes  to  read  from  cards  following  the 
$DATA  card  so  the  FILE_NAHE  used  is  SYSIN  resulting  in 

FILE(SYSIN) 

If   no  file  is  specified  the  computer  assumes  that 
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SYSIN  is  the  file  that  should  be   used   for   input,   so 


FORM  1  -  GBT  {CPTIOMS}  LIST  (  VARIABLE 
{, VARIABLE)  )  ; 

FORM  2  -  GET  (OPTIONS}  EDIT  (  VARIABLE 
{, VARIABLE}  )  (  FORMAT  )  ; 

FORM  3  -  GET  {OPTIONS}  DATA  £  (  VARIABLE 
{, VARIABLE}  )  }  ; 

FORM  H    -    GET  {FILE (FILE_ NAME) }  SKIP{(EXP)}  ; 
FIGURE  2.22  -  VARIOUS  FORMS  OF  THE  GET  STATEMENT 

this  opticn  need  not  be  specified. 

2)  COPY  -  This  causes  all  values  read  to  be  output  on 
the  line  printer  in  the  fora  that  they  are  read.  This 
option  is  quite  useful  in  debugging  to  check  that  the 
information  is  being  read  in  correctly. 

3)  SKIP  {(EXP)}  -  This  causes  the  computer  to  ignore 
the  rest  of  the  information  on  the  current  card  and  to 
go  to  the  start  of  the  next  card  before  reading 
information.  If  (EXP)  is  used,  the  value  of  the 
expression  is  determined  as  an  integer  and  that  many 
cards  are  *skipped*  in  the  input  file.  If  the  value  of 
the  expression  is  <1,  the  value  is  set  to  1.  Note  that 
the  first  SKIP  results  in  the  remainder  of  the  current 
card  being  skipped.  Even  if  only  one  column  on  the  card 
has  not  be  read.  Further  skips  Hill  cause  whole  cards 
to  be  skipped. 

The  GET  statement  must  always  start  with  the  keyword  GET. 
The  option,  if  any,  and  the  LIST  group,  EDIT  group  or  DATA  group 
can  occur  in  any  order. 

LIST,  EDIT,  and  DATA  each  specify  the  way  the  data  appears 
in  the  input  file.  LIST  means  that  the  data  items  are  in  a   list. 
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Each  data  item  is  separated  from  the  next  by  blanks  and/or  a 
coima.  The  computer  assigns  the  first  data  itea  to  the  first 
variable  given  inside  the  parentheses,  the  second  data  itea  to 
the  second  variable,  etc.  until  it  runs  out  of  variables  in  the 
list.  When  the  next  GET  stateaent  is  encountered,  the  process 
starts  again  where  the  first  GET  stateaent  left  off  in  the  data 
iteas.  Figure  2.23  shows  a  possible  GET  LIST  stateaent.  When  this 


GET  SKIP<2)  LIST  (A,  B,  C)  COPY; 
FIGUBE  2.23  -  SAMPLE  GET  LIST  STATEMENT 


stateaent  is  executed,  it  will  cause  the  computer  to  skip  what 
remains  en  the  current  data  card,  skip  all  of  the  next  card,  and 
then  read  values  for  A,  B,  and  C,  outputting  the  values,  in  the 
form  that  they  were  read,  on  the  printer. 

The  GET  EDIT  statement  also  has  a  list  of  variables  to  be 
read.  The  variables  are  specified  exactly  like  the  GET  LIST 
variables.  Following  the  list  of  variables  is  an  additional  list 
which  specifies  how  the  data  values  should  be  read  from  the 
cards.  Specified  below  is  a  list  of  all  format  specifications 
that  can  be  used. 

F(H{,D})  -  a  number  is  tc  be  read.  It  should  be  read  as 
a  fixed  deciaal  cumber  with  a  total  width  of  w  columns 
on  the  card.  If  a  value  for  D  is  given,  it  specifies 
the  number  of  digits  to  the  right  of  the  decimal  point 
in  the  number.  The  width  includes  a  column  for  the  sign 
and  a  column  for  the  deciaal  point  if  they  are  given  in 
the  number. 

E<W,D)  -  a  number  should  be  read  that  is  possibly  in 
exponential  fora  (scientific  notation) .  It  has  a  total 
width  of  H  columns  with  D  columns  to  the  right  of  the 
deciaal  point.  N  includes  columns  for  a  sign,  decimal 
point,  the  exponential  E,  a  sign  on  the  exponent,  and 
two  columns  for  the  exponents  value. 

A (W)  -  a  character  string  is  to  fce  read.  It  contains  a 
total  of  i  columns  or  characters. 
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X(W)  -  this  means  to  skip  W  columns  in  the  input.  If 
anything  is  punched  in  those  columns,  it  will  not  be 
read. 

SKIP  {(EXP)}  -  this  has  the  same  effect  as  the  skip  as 
an  option. 

COL  (EXP)  -  the  expression  is  evaluated  and  the  computet 
qoes  to  that  column  on  the  current  card.  If  that  column 
has  already  been  passed  en  the  current  card,  it  goes  to 
the  specified  column  on  the  next  card. 

Note  that  the  first  three  format  specifications  given  tell  how  to 
read  the  information  that  is  on  the  cards,  while  the  last  three 
specifications  are  used  to  get  the  computer  to  the  proper 
location   on   the  card  to  read  the  values.  Suppose  the  data  cards 


000000000111  111111122222222  22333333333  3 8 

1234  5678901234  5678901234567890123456  789      0 

23. 4E14ABC478. 369234 18    567  34.56543 
423        78 
937    14987 

FIGURE  2.24  -  SAflPLE  DATA  CARDS 


shown  in  Figure  2.24  are  being  read  (note  the  first  two  rows  of 
numbers  are  given  to  identify  the  columns)  using  the  GET  EDIT 
statement  of  Figure  2.25.  Assume  the  computer  is  currently  at 
column  1  of  the  first  (top)  card.  The  computer  executes  the 
statement  as  follows.  It  first  checks  for  any  OPTIONS  that  might 
be  specified.  No  OPTIONS  are  given  so  it  looks  in  the  list  of 
variables  for  some  variable  to  assign  a  value  to.  It  finds  the 
variable  A.  It  then  looks  in  the  format  area  for  some  way  to 
input  a  value  for  A.  The  first  specification  that  is  found  says 
to  skip  over  three  columns  of  the  card  from  the  current  position. 
This  places  the  card  reader  at  column  4  on  the  first  card.  A 
value  for  A  has  not  been  read  so  the  computer  examines  the  next 
format  specification.  This  specification  states  to  read  the  next 
three  columns  as  a  fixed  decimal  number  with  no  fractional 
digits.   The   number   3.4  is  read  from  these  columns.  Because  the 
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foraat  specification  said  to  read  the  umber  with  no  fractional 
digits,  the  number  is  converted  to  3  and  assigned  to  the  variable 
A.  A  check  is  new  made  to  see  if  mote  values  should  be  read  and 
it  finds  that  a  value  should  nov  be  read  for  B.  The  coaputer 
continues  on  with  the  format  specifications  where  it  left  off  and 
finds  CCL(13).  This  tells  the  card  reader  to  go  to  ecluan  13  on 
the  current  card.  The  next  fcraat  specification  states  to  read   a 


GET  EEIT(A,B,C)  <X(3)  ,F  (3)  ,C0L<13)  ,F  (10,  3)  ,SKIPf  X  (2)  , 

F(1),X(1),SKIP)  ; 

FIGURE  2.25  -  SAMPLE  GET  EDIT  STATEMENT 


fixed  decimal  number  10  columns  wide.  Three  of  digits  read  should 
be  fractional.  The  number  478.369234  is  read.  Because  there  is  a 
decimal  point  in  the  number,  it  is  used.  This  results  in  a  value 
of  478.369  being  assigned  to  B.  If  the  decimal  point  had  not  been 
present  in  the  columns  read  the  computer  would  have  placed  a 
decimal  point  in  the  number  so  that  the  last  three  digits  would 
be  fractional. 

A  check  is  again  made  to  see  if  more  values  should  be  input 
foe  variables  in  the  list  and  it  is  discovered  that  a  value  for  C 
should  be  read.  The  computer  continues  in  the  format 
specifications  where  it  left  off  and  finds  SKIP.  This  causes  the 
remaining  values  on  the  current  card  to  be  ignored.  The  card 
reader  skips  over  them  and  procedes  to  the  start  of  the  next 
card.  An  X(2)  specification  is  then  found  which  causes  coluans  1 
and  2  of  the  current  card  to  be  ignored,  then  an  F(1) 
specification  is  found.  This  causes  the  value  in  the  third  coluan 
to  be  read  as  a  fixed  decimal  number.  looking  at  that  data  card, 
notice  that  coluan  3  is  blank.  This  is  interpreted  as  a  zero  so  C 
is  given  a  value  of  zero.  The  computer  again  checks  to  see  if 
variables  still  remain  in  the  list  and  discovers  none  remaining. 
Because  no  mere  values  should  be  read,  the  computer  nov  procedes 
to  execute  the  next  statement  of  the  prograa.  Note  that  the 
remaining  format  specifications  are  ignored!  This  is  because  no 
■ore  variables  are  to  be  assigned  values. 

Suppose  fewer  foraat  specifications  are  given  than  variables 
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to  be  read,  what  happens?  Assume  that  the  GET  statement  now  to  be 
executed  is  the  statement  shown  in  Figure  2.26.   After   executing 


GET  SKIP  EDIT(D,E)  (F(3)  ,X(4))  ; 

FIGURE  2.26  -  GET  EDIT  STATEMENT  illTH  TOO  FEW 
FORMAT  SPECIFICATIONS 


the  SKIP  causing  the  card  reader  to  go  to  the  third  data  card, 
the  computer  reads  a  value  for  the  variable  D.  The  format 
specifications  state  that  that  value  should  be  read  from  columns 
1  through  3  on  the  card  giving  a  value  of  937  to  the  variable.  In 
attempting  to  read  a  value  fcr  E  the  computer  skips  over  the  next 
four  columns  of  the  data  card  and  then  runs  out  of 
specifications.  Because  a  value  must  be  read,  the  computer  goes 
back  to  the  start  of  the  format  specification  list  and  ,§ta.rts 
through  the  list  a  second  time.  This  causes  a  value  of  149  to  be 
assigned  to  E  and  leaves  the  card  reader  on  the  10th  column  of 
the  third  data  card. 

Figure   2.27  shows  several  possible  ways  of  writing  the  same 
GET  EDIT  statement.  The  first  statement  shows  all  of   the   format 


GET  EDIT(A,B,C)  (X  (2)  ,F  (3)  , X  (2)  ,F  (3)  ,X(2)  ,F<3))  ; 

GET  EDIT(A,B,C)  <X<2)  ,F  (3) )  ; 

GET  EDIT(A,B,C) <(3)  <X(2) ,F<3))); 


FIGURE  2.27  -  VARIOUS  MAYS  OF  WRITING  THE  SAME 
GET  EDIT  STATEMENT 


specifications  enumerated.  when  the  list  is  highly  repetitive, 
variations  such  as  the  second  and  third  statements  can  be  used. 
In  the  second  statement  the  format  specifications  that  are  to  be 
repeated  are  listed  once.  The  computer  will  repetitively   execute 
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the  specifications  until  all  variables  have  been  assigned  values. 
The  third  statement  shows  how  a  repetition  factor  can  be  used. 
The  number  3  in  parentheses  states  that  the  following  group  of 
format  specifications  (also  given  in  parentheses)  should  be 
repeated  three  tines.  The  use  of  the  repetition  factor  only 
applies  to  the  format  specifications  and  can  be  used  extensively 
as  shown  by  Figure  2.28. 


GET  SKIP  EEIT(A,B,C,D,E,P)  ((2)  (  (2)  (F(4))  ,  SKIP  )  , 
(2)  <X(<0  ,F<7,3)))  ; 

FIGURE  2.28  -  EXTENSIVE  USE  CF  THE  REPETITION 
FACTOR  IN  A  GET  EDIT  STATEMENT 


The  third  type  of  GET  statement  is  the  GET  DATA  statement. 
The  list  of  variables  is  optional  in  this  statement,  and  no 
format  specifications  are  given.  The  data  cards  for  the  GET  DATA 
statement  consist  of  a  series  of  assignment  statements  separated 
by  commas.  The  last  assignment  statement  is  followed  by  a 
semicolon.  Figure  2.29  shows  how  such  a  data  card  might  look. 
Note  that  only  ccnstants  can  occur  to  the  right  of  the  equal 
signs   on   the   data  cards.  If  no  list  of  variables  is  given,  the 


A  =  23,    B  =  17,  C  =  97,  D  =  57; 

FIGURE  2.29  -  SAMPLE  DATA  CARD  FOR  A  GET 
DATA  STATEMENT 


computer  will  read  to  the  first  semicolon  in  the  data  cards, 
assigning  values  to  the  variables  as  specified.  Figure  2.30  shows 
two  GET  DATA  statements  which  will  read  in  the  data  from  the 
sample  data  card  shown  in  Figure  2.29. 

The  second  GET  DATA  card  in  Figure  2.30  specifies  what 
variables  can  be  given  values  when  it  is  executed.  The  variables 
do  not  have  to  appear  on  the  data  card  in  that  specified  order 
nor  must  every  variable  specified  be  given  a  value.  If  •C=97'  was 
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removed   from   the  sample  data  card  of  Figure  2.29,  the  statement 

GET  DATA; 

GET  DATA(A,B,C,D) ; 

FIGURE  2.30  -  SAMPLE  GET  DATA  STATEMENTS 


would  assign  the  specified  values  to  A,  B,  and  D,  leaving  C  with 
its  current  value.  The  data  card,  however,  cannot  contain 
variables  that  are  not  specified  in  the  list.  If  the  data  card 
contained  •P=2<**  in  place  of  •C^ST^  an  error  would  occur  when  the 
second  GET  DATA  statement  is  executed,  because  P  did  not  appear 
with  A,  B,  C,  and  D  in  the  list. 


2.8.2  POT  STATEMENT 


The  POT  statement  is  used  to  output  or  print  information 
from  the  program.  The  general  forms  of  the  PUT  statement  are 
given  in  Figure  2.31.  The  OPTIONS  that  are  available  to  be  used 
with  the  POT  statement  are  as  follows^ 


FILE (FILE_NAME)  -  this  allows  the  programmer  to  specify 
where  the  output  should  gc.  Normally  SYSPRINT  is  used 
which  causes  the  output  to  be  printed  on  the  line 
printer.  If  this  option  is  not  specified,  SYSPRINT  is 
automatically  assumed. 

SKIP  {(8XP)}  -  this  works  identically  to  SKIP  on  input 
except  printer  lines  are  skipped  rather  than  cards.  A 
SKIP  (0) ,  however,  will  cause  the  printer  to  start 
printing  at  the  beginning  of  the  current  line.  This  is 
used  for  overprinting  of  characters. 

PAGE  -  this  causes  the  computer  tc  stop  printing  on  the 
current  output  page  and  to  go  to  the  top   of   the   next 
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page  before  continuing  to  print  information. 

FORM  1  -  PUT  {OPTIONS}  'POSITION*  ; 

FORM  2  -  POT  {OPTIONS}  IIST (EXPRESSION 
(,  EXPRESSION}  ) ; 

FORM  3  -  PUT  {OPTIONS}  EDIT  {EXPRESSION 
{,  EXPRESSION}  )  (  FORMAT  )  ; 

FORM  U  -  PUT  {OPTIONS}  DATA  (VARIABLE 
{,  VARIABLE}  )  ; 

FIGURE  2.31  -  GENERAL  FORMS  OF  THE  PUT  STATEMENT 


LINE  (EXP)  -  this  allows  the  programmer  to  specify  on 
exactly  which  line  on  the  page  to  print  information. 
The  expression,  EXP,  is  evaluated  and  the  computer  then 
goes  to  that  line  on  the  page  to  print.  Note,  if  the 
computer  is  currently  writing  on  line  6  and  LINE  (5)  is 
specified  the  computer  will  go  to  line  5  of  the  next 
page.  This  is  because  the  line  printer  cannot  back  up. 

Form  1  of  the  PUT  statement,  given  in  Figure  2.31,  has  only 
a  POSITION  specified  along  with  some  OPTIONS.  A  POSITION  is  any 
one  of  the  last  three  OPTIONS  available  which  are  listed  above. 
Any  or  all  of  the  others  may  be  used  as  OPTIONS. 

the  PUT  statement  has  a  series  of 
output  in  a  list  form,  a  maximum  of 
computer  divides  the  output  line  into 
tely  egual  in  size.  In  executing  the 
mputer  evaluates  the  first  expression 
n  the  first  available  area  beyond  the 
Each  expression  is  evaluated  in  turn 
way,  by  going  to  the  next  available 
of  a  given  expression  is  too  large 
tinued  into  the  second  area,  when  the 
,  its  value  is   placed   in   the   next 
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The  EDIT  fcrm  of  the  POT  stateaent  works  in  the  same  way  as 
the  GET  EDIT.  The  expressions  are  evaluated  then  output  according 
to  the  format  specification  given.  Two  additional  positional 
format  specifications  are  allowed: 

PAGE  -   causes   the  computer  to  go  to  the  top  of  a  new 

page. 

LINE  (EXP)  -  causes  the  computer  to  go  to  the  line 
number  specified.  (See  above  for  more  detail.) 

The  COLUMN  and  A  specifications  change  to  the  following: 

COL  (EXP)  -  causes  the  compute!  to  go  to  column  number 
specified.  If  that  column  number  has  been  passed  on  the 
current  line,  it  goes  to  that  column  number  on  the  next 
line. 

A  ((EXP)}  -  if  the  expression  is  present,  it  will  be 
evaluated  as  an  integer  and  that  many  characters  will 
be  output.  If  there  are  more  characters  given  to  be 
output  than  spaces  available,  the  extra  characters  will 
be  removed  from  the  right  of  the  character  string.  If 
there  are  less  characters  than  places,  the  extra  places 
will  be  filled  by  blanks  on  the  right.  If  only  A  is 
specified  with  nc  expression,  all  of  the  characters  in 
the  string  will  be  output. 

The  POT  DATA  statement  causes  the  values  of  the  variables  to 
be  printed  out  as  assignment  statements,  separated  by  commas  with 
a  semicolon  on  the  end. 

Note  that  the  OPTION  (SKIP,  LINE,  PAGE)  will  always  be  done 
first  in  a  POT  or  GET  statement.  If  more  than  one  OPTION  is 
specified,  the  order  of  execution  is:  PAGE,  LINE,  SKIP. 


2.9  GO  TO  STATEMENT 


The  GO  TO  statement  is  used  to  transfer  from  one  point  to 
another  point  in  a  program.  Figure  2.32  shows  the  general  fcrm  of 
a  GO  TO  statement.  LABEL  is  a  label  identifier  used  within  the 
program. 
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Figure  2.33  shows  how  a  GO  TO  statement  might  be  used   in   a 


GO  TO  LABEL; 
FIGUBE  2.32  -  GENERAL  FOBM  OF  A  GO  TO  STATEMENT 


HERE:X=A*B; 
C=A*A; 


GC  TO  HEBE; 
HALT:A=0; 


FIGUBE  2.33  -  EXAMPLE  OF  THE  USE  OF  A  GO  TO  STATEMENT 


program.  The  statements  in  the  program  are  executed  in  their 
normal  numeric  order  until  the  GO  TO  statement  is  encountered. 
Bather  than  continuing  execution  with  the  statement  labeled  HALT 
the  computer  will  transfer  back  to  the  statement  labeled  HEBE  and 
will  continue  execution  at  that  point. 

The  use  of  GO  TO  statements  in  programs  should  be  limited  as 
much  as  possible.  The  excessive  use  of  GC  TO  statements  causes 
the  program  to  be  very  difficult  to  read  and  understand.  If  an 
alternative  is  available  to  using  a  GO  TO  statement,  use  it 
rather  than  the  GO  TO.  Do  not,  however,  destroy  a  well  written, 
easy  to  understand  program  just  to  eliminate  one  GO  TO  statement. 
As  a  rule  of  thumb,  if  10  percent  of  a  program  is  GO  TO 
statements,  the  program  should  be  rewritten. 
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2-10  IF  STATEMENT 


The  IF  statement  allows  the  programmer  to  test  conditions 
during  the  execution  of  the  program  so  the  program  can  determine, 
by  the  results  of  testing  the  condition,  what  action  should  be 
performed  next.  The  general  form  of  an  IF  statement  is  given  in 
Figure  2.34.  The   CONDITION   is   some   logical   expression   which 


IF  CONDITION  THEN  SI;  {  EISE  S2;  } 
FIGURE  2-34  -  GENERAL  FCRM  OF  THE  IF  STATEMENT 


results  in  a  true  or  false  value  when  evaluated.  SI  and  S2  are 
any  executable  statements  in  the  language.  If  the  evaluation  of 
the  ccnditicr  results  in  a  value  of  true,  statement  S1  is 
executed.  If  the  result  is  false  and  an  ELSE  clause  is  given, 
statement  S2  is  executed.  After  executing  either  the  ELSE  or  THEN 
clause  of  the  IF  statement,  the  computer  continues  execution  with 
the  statement  following  the  IF  statement.  If  no  ELSE  clause 
exists  for  the  stateaect  and  the  condition  is  false,  the  next 
statement  is  executed  as  though  the  ELSE  clause  was  a  null 
statement.  The  only  case  when  the  next  statement  is  not  executed 
is  when  the  ELSE  or  THEN  clause  that  is  executed  contains  a  GO  TO 
statement.  The  computer  in  this  case  goes  to  the  specified  label 
and  continues  execution  at  that  point  as  though  it  was  the 
statement  following  the  IF  statement. 

The  conditional  operations  that  can  be  used  in  the  condition 
of  an  IF  statement  are  given  in  Figure  2.35.  All  arithmetic 
operators  have  a  higher  precedence  than  these  conditional 
operators  so  these  conditional  operators  will  be  executed  last. 

Suppose  that  the  absolute  value  of  a  number  was  desired. 

A  =  |  X  |  (2.12) 
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This   could   quite   easily  be     expressed   with   the  following  IF 


EQUAL  TO 

>  GfiEATER  THAN 

<  LESS  THAN 

«*=  NCT  EQUAL 

->>  NCT  GBEATER  THAN 

-*<  NCT  LESS  THAN 

>=  GBEATEfi  THAN  OB  EQUAL  TO 

<=  LESS  THAN  OB  EQUAL  TO 

FIGURE  2.35  -  CONDITIONAL  OPERATORS 


statement: 


IF  X>0  THEN  A=X;  (2. 13) 

ELSE  A=-X; 


Suppose,  however,  that  this  should  only  be  done  if  some  variable 
P  has  a  value  of  3.  This  could  be  written  as 


IF  P=3  THEN  IF  X>0  THEN  A=X;  (2,14) 

ELSE  A=-X; 

Immediately  the  question  is  asked  -  vhich  IF  statement  does  the 
ELSE  belong  to?  ELSE  clauses  are  always  matched  to  the  closest  IF 
statement  that  does  not  have  an  ELSE  clause.  For  example  - 


IF  P-3  THEN  IF  X=0  THEN  A=X; 

ELSE  A=-X;  (2.15) 

ELSE    IF  H>0  THEN  A=H»X; 

ELSE  A=-H*X; 

Notice  the  use  of  indentation  to  show  graphically   how   the   ELSE 
clauses  are  matched.  Ihis  IF  statement  can  be  diagrammed  as: 
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r-  THEN  A-X 
r-  THEN  IF  X>0  --J 
|  t-  ELSE  A=-X 

I 
IF  P=3  -I  (2.16) 

1 

|  r-  THEN  A=H*X 

«■-  ELSE  IF  H>0  --J 

«•-  ELSE  A=-H*X 


Suppose  it  was  desired  to  place  three  numbers  A#  E,  and  C  in 
numeric  order  so  that  A  >  B  >  C.  This  could  be  written  as  one 
large  compound  or  nested  IF  statement  as  follows: 


r-  THEN  A>OB 

i 

r-  THEN  IF  A>C  -i 

I  I 

|  «■-  ELSE  OA>B 

r-  THEN  IF  B<C  H 

I  I 

|  «•-  ELSE  IN  OBDER 
IF  A>B  H  (2.17) 

|  r-  THEN  B>A>C 

I  I 

«■-  ELSE  IF  A>C  -i 

|  r-    THEN  B>OA 

I  I 

«■-  ELSE  IF  B>C  H 

I 

l-  ELSE  OB>A 
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This  diagram  becomes  the  following  IF  statement  - 


IF  A>B  THEN  IF  E<C  THEN  IF  A>C  THEN 


ELSE 


ELSE; 
ELSE  IF  A>C  THEN  DO; 


T=B; 
B*A; 

A=T; 

END; 
ELSE  IF  B>C  THEN 


DO; 
T=C 
C*B 
B=T 
END 
DO; 
T=C 
C=B 
B=A 
A*T 
END 


ELSE 


DO; 
T=B 
B=C 
C=A 
A=T 
END 
DO; 
T=C 
C=A 
A=T 
END 


(2.18) 


Notice  the  null  ELSE  clause  in  the  middle 
very  tempting  to  remove  that  ELSE  clause  b 
but  if  it  is  leacved  the  meaning  of  the  st 
changed.  This  is  due  to  the  rule  that  ELSE 
the  nearest  IF  statement  that  does  n 
clause.  If  the  null  ELSE  clause  is  removed 
it  will  be  put  in  its  place,  matching  up  « 
stateaent.  Never  remove  null  ELSE  statemen 


of  the  statement.  It  is 
ecause  it  does  nothing, 
atement  is  dramatically 
clauses  are  matched  to 
ot  already  have  an  ELSE 
,  the  ELSE  that  follows 
ith  the  «IF  B<C«  IF 
ts  for  this  reason. 


Compound   conditions   can  also  be  used  in  IF  statements.  The 
logical  operators  are  - 
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NOT 
AND 
OR 


NOT  has  the  highest   precedence   and   OR   the   lowest.   A   sample 
compound  conditional  IF  statement  is  given  below. 

IF  A=E&(C=D  |  P>3)  THEN  C=1; 

ELSE  C*3;  (2.19) 

Parentheses   can   be  used  as  shown  to  change  the  precedence  as  is 
done  with  the  arithmetic  operators  in  assignment  statements. 


2.11  NULL  STATEMENT 


The  NULL  statement  consists  simply  of  a  semicolon.  Its 
execution  results  in  nothing  being  done.  NULL  statements  are 
normally  used  for  placing  labels  in  programs 


LABEL:;  (2.20) 


and  for  insuring  that  nested  IF  statements  are  executed  properly. 


2.12  PROCEDURE  STATEMENT 


The  first  executable  statement  in  a  program  must  be  a 
PROCEDURE  statement.  The  general  form  of  a  PROCEDURE  statement  is 
given  in  Figure  2.36.  NAME  is  a  label  consisting  of  up  to  seven 
alphanumeric  characters  (letters  or  numbers)  which  starts  with   a 
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letter.  This  is  the  nane  of  the  program  and  is  usually  chooseu  to 

NAME: PROCEDURE  OPTIONS  (MAIN) ; 
FIGURE  2.36  -  GENERAL  FORH  OP  A  PROCEDURE  STATEMENT 


reflect  what  the  program  actually  does.  NAME  is  followed  by  a 
colon  and  the  word  PROCEDURE  or  PBOC,  its  abbreviation. 
OPTIONS (MAIN)  states  that  what  follows  is  the  main  procedure  or 
main  program,  the  place  where  the  computer  should  start  executing 
instructions.  A  sample  procedure  statement  might  be  - 

SOBTiPROCEEUBE  OPTIONS  (MAIN)  ;  (2.21) 


This  might  be  the  PROCEDURE  statement  for  a   program   that   sorts 
numbers  into  numeric  order. 

For   ether  forms  of  the  PROCEDURE  statement  see  Chapter  6  on 
procedures. 


2.13  RETURN  STATEMENT 


The  RETURN  statement  is  used  to  specify  the  value  being 
returned  from  a  function  procedure  or  to  end  an  invoiced  procedure 
before  its  logical  end.  RETURN  statements  used  in  function 
procedures  specify  in  parentheses  the  value  that  should  be 
returned.  The  following  RETURN  statement  specifies  that  the  value 
of  the  variable  A  should  be  returned  - 

BETUBN(A)  ;  (2.22) 

Expressions  and  constants  can  also  be    used,   for  example  - 

RETUBN(3.7)  ;  (2.23) 
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or 

BET0BN(27*F(I))  ;  (2.24) 

A   called  procedure  has  no  value  that  should  be  returned,  so 
none  is  specified  - 

RETURN;  (2.25) 

The  RETURN  statement  can  be  used  anyvhere  in  an  invoked 
procedure.  It  can  be  thought  of  as  being  a  STOP  statement  for 
that  procedure,  causing  its  execution  to  be  halted  and  execution 
to  resume  in  the  main  program.  If  a  RETURN  statement  does  not 
appear  in  a  referenced  procedure,  the  computer  will  return 
automatically  when  the  END  statement  for  the  procedure  is 
encountered.  Whenever  a  RETURN  statement  is  used  or  not,  the 
computer  returns  to  the  statement  that  caused  the  procedure  to  be 
invoked  and  continues  execution  at  that  point. 


2.14  STOP  STATEMENT 


The  STOP  statement  is  used  to  stop  the  execution  of  the 
program  at  some  point  other  than  its  logical  end  (the  END 
statement  corresponding  to  the  main  procedure  statement) •  It  may 
be  used  anywhere  in  the  program  and  mill  result  in  the  program's 
execution  being  halted  when  it  is  encountered.  Normally,  the  STOP 
statement  is  used  in  an  IF  statement  to  end  the  program  is  some 
condition  is  true.  For  example 


TEST:PROCEDURE  OPTIONS  (BAIN) ; 
IF  X=0  THEN  STOP;  (2.26) 

END  TEST; 
This  is  much  clearer  and  easier  to  read  than 
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TESTsPBOCEDURE  OPTIONS <MAIN) ; 
IF  1=0    TBEN  GO  TO  LAST;  (2.27) 

LAST:END  TEST; 
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CHAPTER  3  -  ARRAYS  AND  STRUCTURES 


Because  programs  are  desired  to  handle  large  amounts  of  data 
that  is  very  similar,  better  ways  of  storing  the  information  must 
be  used  than  simple  variables.  An  obvious  example  of  this  is  the 
list  of  numeric  grades  received  by  students  in  a  course.  It  would 
be  very  tedious  to  write  a  program  using  simple  variables  to 
print  out  the  grades  in  order  from  highest  to  lowest.  Many 
variables  would  be  needed  and  the  program  would  only  work  for 
that  number  of  variables.  If  another  student  added  the  course, 
the  program  would  have  to  be  entirely  rewritten  which  would  be 
quite  wasteful.  The  use  of  arrays  and  structures  can  greatly 
simplify  this  problem. 


3.1  ARRAYS 


Arrays  can  be  thought  of  as  a  large  number  of  variables  that 
share  the  same  name.  The  DECLARE  statement  of  Figure  3.1  defines 
an  array.  A,  which  has  15  elements  or  members.  To  reference  or 
use  any  single  element  of  array  A,  the  name  of  the  array  is  used 
with  a  number  specifying  which  element  to  use  from  the  array.  For 
example 

A(5)  <3.  1) 

references  element  number  5  in  the  array,  while 

A(I)  <3.2) 
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DECLARE  A  (15)  FIXED  DECIMAL  INITIAL  ((5)  (0) , 
(5) (1,2)) S 


FIGURE  3.1  -  AHfiAY  DECLARATION  STATEMENT 


references  the  Ith  element. 

Note  that  initial  values  are  given  to  array  A  in  Figure  3.1. 
The  first  5  elements  are  assigned  a  value  of  zero  while  the  last 
10  elements  are  assigned  alternating  values  of  one  and  two.  These 
initial  values  are  assigned  to  the  elements  of  the  array  before 
the  execution  of  any  statements  in  the  program.  The 
initialization  is  done  only  once. 

In  declaring  arrays  the  bounds  or  limits  of  the  array's 
dimensions  are  left  to  the  programmer  to  decide.  A  general  form 
of  the  DECLARE  statement  is  shown  in  Figure  3.2.  LBI  is  the  lower 


DCL  NAME  (LB1:Ufi1,  LB2:UB2,  ...,  LBN:0BN); 


FIGURE  3.2  -  GENERAL  FORM  OF  A  DECLARATION  OF 
AN  ARRAY 


bound  of  the  Ith  subscript  (dimension)  and  UBI  is  the  upper  bound 
of  the  Ith  subscript.  If  a  lower  bound  is  not  given  it  is  assumed 
to  be  1.  There  is  no  limit  to  the  number  of  subscripts  that  can 
be  used  but  there  are  very  few  applications  that  reguire  more 
than  three  or  four  subscripts. 
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Suppose  a  prograo  was  desired  to  compare  various  automobile 
Manufacturers.  A  possible  array  used  in  the  program  night  hold 
the  number  ot  cars  produced  by  each  of  5  manufacturers  during  the 
years  1960  through  1970.  An  array  to  hold  this  data  might  be 
declared  as 

DCL  CARS  (5, 11)  FIXED  DECIMAL;  (3.3) 

where  the  first  subscript  refers  to  the  manufacturer  and  the 
second  to  the  year.  Declaring  the  array  in  this  way  presents  a 
problem  to  the  programmer.  He  must  remember  that  CARS  (1,5)  refers 
to  the  cars  produced  by  manufacturer  number  one  in  the  year  1964. 
This  can  lead  to  many  problems  in  understanding  the  program. 
Instead  the  DECLARE  statement  for  this  array  could  be 

DCL  CARS  (5, 1960:1970)  FIXED  DECIMAL;  (3.4) 

Now  the  programmer  can  refer  to  the  cars  produced  by  the  first 
manufacturer  in  the  year  1964  as  CARS (1,1964)  eliminating 
confusion  in  writing  and  understanding  the  program. 

Once  arrays  have  been  declared,  values  can  be  placed  in  the 
elements  of  the  arrays.  The  subscripts  used  to  refer  to  specific 
elements  of  the  arrays  can  be  expressions.  Because  expressions 
can  be  used  as  subscripts  it  is  quite  easy  to  write  programs  to 
manipulate  the  values  in  arrays.  If  a  total  for  the  number  of 
cars  produced  each  year  in  the  above  example  was  desired,  it 
could  easily  be  computed  as  shown  in  Figure  3.3.  Arrays  can  also 
be  used  without  subscripts  when  an  operation  is  to  be  performed 
on  all  of  the  elements  of  the  array.  If,  for  example,  all 
elements  in  array  A,  declared  in  Figure  3. 1  above,  were  to  be 
incremented  by  11,  it  could  be  expressed  as 

A  =  A  ♦  11;  <3.5) 

rather  than 

DO  1=1  TO  15; 

A  (I)  =  A  (I)  ♦  11;  (3.6) 

END; 

while  this  can  save  some  programming  effort  it  does  tend  to  lead 
to  confusion  when  'reading*  a  program  and  many  problems  can  only 
be  done  using  a  DO  loop  as  shown  in  Figure  3.3  because  of 
restrictions  in  the  PL/I  language.  Suppose,  for  example,   is   was 
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desired  to   multiply  array  A  by  B  and  place  the  results  in  C.  If 


/*  LOOP  TO  GO  THBU  THB  YBABS  */ 

DO  1=1960  TO  1970; 

/*  INITIALIZE  A  SUM  TO  ZEBO  */ 

SUMH=0; 

/*  LOOP  FOB  THE  HANUFACTUBEBS        */ 

DO  J=1  TO  5; 

/*  ADD  NUMBER  OF  CABS  INTO  TOTAL   */ 
SUMH=SUNM  «■  CABS(J,I); 
END; 
/*  PRINT  YEAB  AND  NOMBER  OF  CABS     */ 
PUT  SKIP  LIST(«THE  XEAB«,  I,  •  SAH»,  SUHM, 

•  CARS  PBODOCED. •) ; 
END; 


FIGUBE  3.3  -  USE  OF  DO  LOOPS  TO  SUM  ELEMENTS  IN 
AN  ARBAY 


the  arrays  are  declared  to  be 

DCL  (A(5),  B(5),  C(0:5))  FLOAT  DEC;  (3.7) 

then  the  multiplication  must  be  done  as  follows: 

DO  1=1  TO  5; 

C(I-1)=  A(I)*B(I)  ;  (3.8) 

END; 

This  is  due  to  the  fact  that  the  bounds  on  array  C   are   not 
exactly  the  saie  as  the  bounds  on  A  and  B,  causing 

C=A*B;  (3.9) 

to  be  unclear  to  the  computer.  If  in  doubt  as  to  what  will 
happen,  always  use  a  loop,  rather  than  the  iiplied  single 
statement. 
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3.2  STRUCTURES 


One  disadvantage  of  arrays  is  that  they  can  held  only  one 
type  of  information.  An  array  declared  FIXED  BINARY  can  only  hold 
fixed  binary  nuabers  -  not  character  strings,  and  vice  versa. 
Many  programming  applications  require  that  data  of  different 
types  be  associated  with  each  other.  Fcr  this  reason,  structures 
were  created. 

Suppose  a  program  was  desired  to  sort  a  list  of  grades  that 
students  made  in  a  course  into  numeric  order.  In  getting  grades 
in  numeric  order,  it  wculd  also  be  advantageous  to  have  a  list  of 
which  student  made  what  grade.  One  could  easily  set  up  two 
arrays,  one  to  hold  the  character  strings  of  student  names  and 
the  other  to  hold  the  numeric  grades.  As  more  and  more 
information  on  the  students  is  desired  to  be  kept  (like  home 
address,  guardian's  name,  etc.),  this  becomes  increasingly  more 
difficult  tc  manage.  It  would  be  quite  advantageous  to  declare 
something  called  STUDENT  that  would  contain  all  of  this 
information.  For  each  student  would  be  a  place  for  a  name,  grade, 
etc...  .  Such  a  structure  is  shown  in  Figure  3.4.  This   structure 


DCL  1  STUDENT(20) , 

2  NAME  CHARACTER  <15) , 

2  GRADE  FIXED  DECIMAL, 

2  HOME_ADDR  CHARACTEB  (30)  ; 


FIGURE  3.4  -  SAHPLE  STBUCTUBE  CONTAINING  STUDENT 
INFORMATION 


contains  two  levels.  The  uppermost  level  (level  1)  defines  the 
name  of  the  structure  (STUDENT).  Each  of  the  sublevel  identifiers 
in  this  structure  contain  information  like  a  given  students 
name.   A   dimension  is  given  to  the  top  level  of  the  structure  so 
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that  20  students  structures  will  be  created,  each  containing  the 
student*s  name,  grade,  and  hone  address.  The  structure  numbers, 
from  one  level  tc  the  next,  do  not  need  to  increase  in  exact 
numeric  order.   The  uppermost  level  in  the  above  structure  could 


DCL  5  STUDENT(20)  , 

10  NOHE_ADDB  CHAB <30) , 

10  CODBSE(5)  , 

15  C_NAHE  CHAB<10) , 
15  GRADE  FIXED  DEC, 

10  S_NAME  CHAB<15) ; 


FIGUBE  3.5  -  STBUCTUBE  CONTAINING  STUDENT  AND 
COUBSE  INFOBHATION 


just  as  easily  been  numbered  5  instead  of  1.  Each  sufclevel, 
however,  aust  have  larger  nuaber  than  the  level  above  it,  so 
NAME,  etc.  would  have  to  have  structure  nuabers  that  were  greater 
than  5.  whenever  the  structure  nuaber  increases  nuaerically  a  new 
sublevel  is  being  defined.  The  previous  structure  element  has  to 
consist  of  just  a  naae  for  that  substructure.  For  example, 
suppose  each  student  has  5  courses  and  receives  a  grade  in  each. 
The  resulting  structure  aight  be  as  shown  in  Figure  3.5.  This 
structure  now  has  three  levels.  The  uppermost  level  defines  the 
entire  structure,  naaes  it  SIUDENT,  and  states  that  20  such 
structures  exist.  On  the  second  level  three  identifiers  are 
defined.  HOME_ADDB  is  a  character  string  of  30  characters,  S_NAME 
is  a  character  string  of  15  characters,  and  COOBSE  is  a 
substructure.  Contained  within  the  COUBSE  structure  is  C_NAME,  a 
character  string  of  length  10,  and  GBADE,  a  fixed  decimal  nuaber. 
Note  that  each  STUDENT  structure  contains  five  COUBSE 
substructures,  each  for  a  different  course  that  the  student  is 
talcing. 

In  addition  to  the  STUDENT  structure,  the  program  aight 
contain  a  structure  for  courses  as  shown  in  Figure  3.6.  Note  that 
there  now  exists  two  variables  called  C_NAHE.  This  situation 
arises  often  in  structures,  so  aethods  must  be  used  to 
distinguish  between  two  course  name.  To  do   this  qualifiers   are 
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added   to   the  variable  name  to  specify  which  variable  it  is.  Any 


DCL  1  COUBSES(20) , 

2  C_NANE  CHAB(30) , 

2  CALL_NUfl  FIXED  DECIMAL (6), 

2  INST_NAME  CHAB<30), 

2  HOUBS  FIXED  DECIMAL<2); 


FIGUBE  3.6  -  CCUBSE  STBUCTUBE 


of  the  following  qualified  names  could  be  used  to  reference  the 
students  course's  name  - 

STUDENT  (I) .COUBSE(J)  .C_NAME 

STUDENT<I) -COUBSE. C_NAHE(J) 

STUDENT. COUBSE(I, J) .C_NAflE  (3. 10) 

STUDENT. COUBSE (I) .C_NAKE(J) 

STUDENT. COUBSE. C_NAME (I, J) 

The  placenent  of  the  subscripts  is  not  significant,  so  long  as 
their  order  remains  the  same  and  the  subscripts  do  not  occur  in 
the  qualified  name  before  their  natural  place  as  defined  by  the 
structure.  Had  the  course's  name  been  declared  in  the  COUBSE 
structure  as 

2  CBS_NAME  CHAB<30),  (3.11) 

the  following  additional  qualified  names  could  be  used  to 
reference  the  student's  course's  name  - 

COUBSE  (I, J)  .C_NAME 

COUBSE(I).C_NAHE(J)  (3.12) 

COUBSE. C_NAHE(I, J) 

C_*AME<I,J) 

As  a  rule,  always  qualify  the  variable  enough  so  that  it  cannot 
be  confused  with  any  ether. 
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As   with   arrays,   operations   can  be   performed   on   whole 
structures. 

ST0DENT<I)  =  STUDENT  (J);  (3-13) 

The  above  statement  causes  all  information  in  the  student 
structure  associated  with  student  J  to  be  placed  in  the  structure 
for  student  I.  Care  Bust  be  taken  as  with  arrays  that  the 
structures  are  totally  the  same  and  that  meaningless  statements, 
e.g. 

STUDENT  (I)  *  STUDENT  (I)  ♦  15;  (3.14) 

are  not  used. 
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CHAPTER  4  -  SEARCHING  AND  SORTING 


In  this  chapter,  several  searching  and  sorting  techniques 
that  are  useful  vhen  working  vith  arrays  and  structures  are 
examined.  The  algorithms  discussed  in  this  chapter  are  a  few  of 
the  basic  algorithns  that  should  be  known  by  all  computer  science 
students.  Many  additional  searching  and  sorting  techniques  exist. 
For  additional  i of on  nation  consult  THE  ART  OF  COMPUTER 
PROGRAMMING,  VOL.  3  by  D.  E.  Knuth. 


4.1  LINEAR  SEARCH 


Suppose  that  the  student  grade  structure  (discussed  in  the 
last  chapter)  was  stored  within  the  machine.  A  program  that  might 
be  of  use  for  a  school  administration  would  be  one  to  locate  a 
given  student's  records.  This  searching  might  use  the  following 
basic  algorithm  - 

1)  Set  1=1  (pointer  to  the  first  element  in  the 
structure) . 

2)  Is  I  greater  than  the  number  of  elements  in  the 
structure?  If  so,  the  item  being  searched  for  does  not 
exist.  He  are  done. 

3)  Is  element  (I)  the  item  we  are  looking  for?  If  so,  we 
are  done. 

4)  Set  1=1*1  (set  pointer  so  it  points  at  next  element 
in  the  structure) • 

5)  Go  to  step  2. 
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/*  HUNT_NAME  -  VARIABLE  THAT  HOLDS  NAME  OF  STUDENT  */ 

/*  BEING  LOOKED  FOB  */ 

/*  J  -  VARIAELE  THAT  HILL  HOLD  POSITION  OF  THE  */ 

/*  STUDENT  IN  THE  STUDENT  STRUCTURE.  */ 

/*  IF  STUDENT  IS  NOT  FOUND,  J  MILL  */ 

/*  EQUAL  ZERO.  V 
J=0; 

/*  DO  A  LOOP  FROM  THE  FIRST  STUDENT  THRU  THE  LAST   */ 
LOOP:DO  1=1  TO  N  BY  1; 

/*  IS  THIS  THE  STUDENT  ME  ARE  IOCKING  FOR?  */ 

IF  STUDENT(I) . S_NAME=HUNT_NAME  THEN  DO; 

/*  SET  VALUE  OF  J  AND  LEAVE  LOOP  */ 

J=i; 

GO  TO  OUT; 
END; 
END  LOOP; 
OUT:; 

FIGURE  4.1  -  LINEAR  SEARCH  PBOGBAM 


This  algorithm  is  known  as  a  linear  search  because  it  starts 
at  the  first  elenent  of  the  structure  and  proceeds  element  by 
element  through  the  structure  until  it  finds  the  item  being 
looked  for  or  discovers  that  the  itea  is  not  in  the  structure. 
Sometimes  the  itea  that  is  being  looked  for  Mill  be  found  in  the 
first  element  cf  the  structure,  other  tines  the  item  will  be 
found  in  the  last  element  of  the  structure,  but  on  an  average, 
this  algorithm  will  be  forced  to  look  at  one-half  of  the  elements 
of  the  structure  before  finding  the  location  of  the  item  being 
searched  for.  If  the  item  is  not  in  the  structure,  the  search 
will  always  go  through  every  item  of  the  structure.  Translating 
the  algorithm  into  statements  results  in  the  program  shown  in 
Figure  4.  1. 
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Searching  in  this  Banner  can  prove  to  be  very  slow.  if  the 
structure  contains  40,000  students*  an  average  of  20,000 
comparisons  would  have  to  be  aade  to  find  one  student's  records, 
and  if  the  record  was  not  there  it  would  take  40,000  comparisons. 
If  the  computer  can  sake  1000  comparisons  a  second,  looking  for 
one  student's  records  would  take  an  average  of  20  seconds. 

Suppose,  however,  that  the  students  were  listed  in 
alphabetical  crder.  Would  this  help  to  decrease  the  search  time? 
Using  the  linear  search,  some  times  the  item  will  again  be  the 
first  element  in  the  list,  and  other  times  it  will  be  the  last 
element.  On  an  average  it  will  still  take  N/2  comparisons  (where 
N  is  the  number  of  students  in  the  list).  When  an  item  is  not  in 
the  list,  the  number  of  comparisons  will  only  be  (N/2)*1  rather 
than  N.  This  is  because  of  the  following:  as  an  item  is  looked 
for  in  the  structure,  the  elements  from  the  structure  that  it  is 
compared  to  are  always  less  than  the  item.  This  holds  until  the 
item  is  found  in  the  structure.  If  the  item  was  not  in  the 
structure,  it  will  then  start  being  compared  against  elements 
from  the  structure  that  are  greater  than  it  is.  Bhen  this  first 
element  is  found  that  is  greater  than  it  is,  there  is  no  point  in 
continuing  because  that  item  cannot  occur  later  in  the  structure. 
For  example,  suppose  the  position  of  the  number  23  was  desired  in 
the  following  array. 


(4.1) 


A<1) 

= 

10 

A  (2) 

* 

12 

A  (3) 

= 

20 

A  (4) 

= 

21 

A  (5) 

a 

23 

A(6) 

3 

47 

A  (7) 

•= 

59 

A<8) 

a 

71 

It  would  take  5  comparisons  tc  locate  it  in  the  array,  because  it 
is  located  in  the  5th  element  of  the  array.  Suppose,  however,  the 
location  of  25  was  desired.  The  comparisons  would  continue  in  the 
same  way  as  with  the  number  23,  except  the  6th  comparison  would 
show  that  the  array  elements  have  now  become  greater  than  the 
item  being  lcoked  for.  The  search  need  not  continue  beyond  this 
point  because  then  25  cannot  occur  beyond  element  6  of  the  array. 
The  savings  of  having  the  elements  sorted  is  not  significant  when 
the  linear  search  is  used;  however,  there  is  a  method  that  is 
much  faster  than  the  linear  search  because  it  makes  use  of  the 
fact  that  the  numbers  are  sorted. 
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4.2  THE  BINABI  SEABCH 


Bather  than  looking  linearly  at  the  elements  of  a  sorted 
structure,  why  net  look  at  the  middle  element.  By  looking  at  the 
Diddle  element  of  the  structure,  if  the  itea  is  not  that  element, 
one  half  of  the  elements  in  the  structure  can  then  be  ignored  in 
the  next  coaparison.  For  example,  suppose  the  position  of  21  was 
desired  in  the  previous  array,  A.  The  aiddle  element  is  element 
nuaber  4  or  21  and  the  itea  is  found  in  only  1  comparison  rather 
than  4.  Suppose  that  23  had  been  desired  instead.  Eleaent   number 

I  4  or  21  would  first  be  examined.  Because  eleaent  4  is  less  than 
the  item  being  searched  for,  all  elements  froa  4  down  can  be 
ignored  in  the  next  coaparison  because  23  cannot  occur  down 
there.  The  midpoint  of  the  remaining  items  is  then  found.  This  is 

I  found  to  be  element  nuaber  6  cr  47.  Because  47  is  larger  than  the 
item  being  searched  for,  the  coaparisons  can  continue  ignoring 
all  elements  from  nuaber  6  on  up.  The  only  eleaent  that  reaains 
is  nuaber  5  or  23,  so  the  coaparison  is  Bade  and  the  item  is 
found  in  only  3  coaparisons  instead  of  the  5  when  using  the 
linear  search. 

while  this  savings  in  comparisons  made  may  not  seem 
significant  in  this  example,  imagine  what  it  would  be  with  40,000 
elements  in  the  structure.  The  first  comparison  would  eliminate 
20,001  from  consideration.  The  next  comparison  would  eliminate 
10,000  acre.  In  10  comparisons  only  40  elements  of  the  original 
40,000  would  still  be  in  consideration.  In  a  maximum  of  16 
comparisons,  the  item  will  have  been  found.  This  results  in  an 
average  savings  of  at  least  19,984  comparisons.  The  aaximum 
number  of  coaparisons  made  using  the  binary  search  is  LOG2(N+1) 
on  a  list  containing  N  elements.  The  steps  to  the  binary  search 
algorithm  are: 

1)  Set  FIBST=1. 

2)  Set  LAST=N. 

3)  If  FIRST  is  greater  than  LAST  then  stop  -  the  item 
is  not  in  the  list. 

4)  Set  HID=  <FIBST*LAST)/2. 

5)  If  A(MID)=ITEM  then  stop  the  item  is  found. 

6)  If  A(HID)<ITEH  then  throw  out  the  bottom  half  (set 
FIBST=MID»1)  otherwise  throw  out  the  top  half  (set 
LAST=MID-1) . 
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7)  Go  to  3. 

Rriting  this  algorithm  to  hunt   for   a   given   student's   records 
results  in  the  prograi  shown  in  Figure  4.2. 


/*  INITIALIZE  FIRST,  LAST  AND  J  */ 

/*  J  WILL  POINT  TO  THE  NAME  IN  THE  STRUCTURE  OR  MILL  */ 

/*  EQUAL  ZERO  IF  IT  IS  NOT  FOUND  */ 

FIRSTS; 

LAST=N; 

J  =  0; 

/*  SET  UP  A  LOOP  TO  GO  AS  LONG  AS  FIRST  IS  LESS  THAN  */ 

/*  OR  EQUAL  TO  LAST  */ 

DO  MHILE (FIRST  <=  LAST); 

/*  COMPUTE  THE  MIDPOINT  AND  CHECK  TO  SEE  IF  IT  IS   */ 
/*  THE  PROPER  ITEM  */ 

MID=(LAST*FIRST)/2; 

IF  STUDENT  (MID)  .S_NAHE=HUNT_ NAME  THEM  DO; 
J=MID; 
GO  TO  OUT; 
END; 
/*  IF  NOT,  DETERMINE  WHICH  PART  OF  THE  STRUCTURB  TO  */ 
/*  THROW  CUT  V 

IF  STUDENT  (MID) .S_NAHE>HUNT_NAME  THEN  LAST=HID-1; 

ELSE  FIRST=MID*1; 
END; 

OUT:  ; 


FIGURE  4-2  -  BINA6Y  SEARCH  PROGRAM 


4.3  JUMP  DOWN  (SIMPLE)  SORT 


The   problem   that  now  remains  is  hew  to  get  the  elements  of 
an  array  or  structure  in  order  so  that  the  binary  search   can   be 
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used.  The  oost  obvious  way  of  doing  this  is  to  locate  the  largest 
element   of   the   array  and  place  it  into  the  last  position.  This 


/*  LCCK  AT  ARRAY,  ONE  ELEMENT  LESS  EACH  TIME  */ 

DO  I=N  TO  2  BY  -1; 

/*  SET  A(1)  TO  EE  THE  LARGEST  ELEMENT  AND  REMEMBER  */ 

/*  BHERE  IT  IS  */ 

MAX=A(1); 

J-1; 

/*  NEW  LOOK  TO  SEE  IF  IT  IS  THE  LARGEST  */ 

DO  K'2  TO  I; 

IF  A  (K) >MAX  THEN  DO; 

/*  IT  IS  NOT  THE  MAXIMUM  SO  HAKE  THIS  ELEMENT   */ 
/*  THE  MAXIMUM  */ 

MAX=A(K)  ; 
J=K; 
END; 
END; 
/*  SWAP  MAXIMUM  AND  LAST  ELEMENT  CF  THE  CURRENT       */ 
/*  SUBSECTION  OF  THE  ARRAY  V 

TEMP=A(I) ; 
A(I)=A(J)  ; 
A  (J)  =TEMP; 
END; 


FIGURE  4.3  -  JUMP  DOBN  (SIMPLE)  SORT 


last  position  is  theo  ignored  and  the  process  is  repeated  until 
only  one  item  remains  to  be  sorted  and  the  algorithm  stops.  The 
basic  steps  are  then: 

1)  Go  through  the  array,  first   with   all   N   elements, 
then  with  N-1  until  only  1  element  remains. 

2)  Go   through   the   part   of  the  array  being  examined 
looking  for  the  largest  element. 

3)  Swap  the  largest  element  and  the  last  element  of  the 
current  part  of  the  array. 

4)  Repeat  the  steps. 


CHAPTER  4  -  SEARCHING  AND  SORTING  66 


This  algorithm  translates  into  the  program  given  in  Figure  4.3. 
Using  the  program  of  figure  4.3,  the  sorting  process  progresses 
as  follows  on  the  array  shown  below. 

A(1)=10 

A(2)=  1 

A(3)=  3 

A(4)  =  7  (4.2) 

A(5)=  8 

A(6)-  9 

The  first  time  through  the  outer  loop,  the  largest  element  is 
found  to  be  element  1.  This  element  is  then  swapped  with  the  last 
element  giving  - 

A(1)  =  9 

A(2)=  1 

A(2)=  3 

A(4)=  7  (4.3) 

A(5)=  8 

A(6)=10 

The  program  now  looks  only  at  the  top  5  elements  of  the  array  and 
repeats  the  steps  (the  line  is  used  to  show  the  limits  of 
elements  being  used  to  find  the  largest)  - 

A(1)=  8 

A(2)  =  1 

A(3)=  3 

A(4)  =  7  (4.4) 

A(5)=  9 

A(6)=10 

This  process  continues  to  be  repeated,  resulting  in  the  following 
values  (the  rightmost  is  the  final  answers)  - 

A(1)=  7  A(1)*  3  A(1)=  1 

A(2)  =  1  A(2)=  1  A(2)=  3 

A  (3)=  3  A  (3)=  7  

A(4)=  8  A(3)=  7  (4.5) 

A  (4)=  8  A  (4)=  8 

A(5)=  9  A(5)=  9  A(5)-  9 

A(6)=10  A(6)=10  A(6)*10 
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4.4  BOBBLE  SORT 


Examining  the  original  array  again  it  is   noticed   that   the 
array  is  completely  in  order  except  the  first  element. 

A(1)=10 

A(2)=  1 

A  (3)=  3 

A<4)  =  7  (4.6) 

A(5)=  8 

A(6)  =  9 

If   that  element  was  to  be  slowly  moved  down  to  its  proper  place, 
as  follows  from  left  to  right,  much  less  work  is  done  - 


A(1)=10 

=     1 

=    1 

=    1 

=    1 

=    1 

A{2)=    1 

=  10 

=    3 

=    3 

=    3 

=    3 

A(3)  =    3 

=    3 

=  10 

=   7 

=    7 

=    7 

A(4)=    7 

=    7 

=    7 

=  10 

=    8 

=    8 

A(5)  =    6 

=    6 

=    8 

=    8 

=  10 

=    9 

A(6)=    9 

=    9 

=    9 

=    9 

=    9 

=  10 

(4.7) 


This  algorithm  is  known  as  a  bubble  sort  because  the  elements  are 
slowly  bubbled  to  their  proper  place.  The  algorithm  steps  are  - 

1)  Go  through  all  elements  of  the  array  looking  at  all 
elements  the  first  time,  then  one  less  each  successive 
time  until  only  one  remains. 

2)  If  no  swaps  were  made  the  last  time  through  the 
array  then  stop  because  the  array  is  in  order. 

3)  Go  through  the  part  cf  the  array  currently  being 
examined,  swapping  adjacent  elements  if  they  are  out  of 
order. 

These  steps  translate  into  the  statements  shown  in  Figure  4.4. 
This  method  is  much  faster  than  the  previous  method  in  certain 
cases.  These  cases  are  when  the  array  is  almost  in  order.  But 
this  method  is  still  guite  inefficient  when  the  array  is 
completely  out  of  order. 
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/*  MAKE  IT  APPEAR  THAT  ITEMS  HAVE  BEEN  SNAPPED         */ 

SORTED=0; 

/*  LOOP  THROUGH  ARRAY  MAKING  IT  SMALLER  EACH  TIME      */ 

DO  I=N  TO  2  BY  -1  ; 

/*  CHECK  TO  SEE  IF  DONE  */ 

IF  SORTED=1  THEN  GO  TO  DONE; 

/*  ASSUME  THINGS  AHE  NOW  SORTED  */ 

SORTED=1; 

/*  GO  THRU  CURBINT  PART  OF  ARRAY  */ 

DO  J=1  TO  1-1; 

IF  A(J)>A(J*1)  THEN  DO; 

/*  ELEMENTS  OUT  OF  ORDER  SO  SNAP  */ 

TEMP=A(J*1)  ; 
A(J*1)=A(J); 
A  (J)=TEMP; 

/*  SET  SORTED  SO  IT  STATES  THAT  A  SNAP  MAS  MADE  */ 
SORTED=0; 
END; 
END; 
END; 
DONE:; 


FIGURE  4.4  -  BUBBLE  SORT 


4.5  HEAP  SORT 


One  of  the  fastest  method  foe  sorting  arrays  is  known  as  the 
heap  sort.  To  understand  how  this  sort  works,  one  oust  first  know 
what  a  binary  tree  is.  A  binary  tree  is  a  way  of  representing 
data  in  the  computer.  These  trees  are  drawn  upside  down  froa  the 
normal  concept  of  a  tree  with  the  root  node  being  at  the  top  (see 
Figure  4.5).  Nodes  are  where  the  data  is  stored  and  branches 
connect   the   nodes   together.  In  a  binary  tree  each  node  has  two 
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branches  leading  from  it  to  its  descendants.  The   tree   has   only 


< — ROOT  NODE 
I 
I 


|  j   < — BRANCHES 

I  I 

<-DESCENDANTS->  

I  I 

I  I 


r"~ 

— i 

r 

— j. — 

""i 

1 

1 

1 

1 

1 

1 

1 

1 

FIGURE  4.5  -  GENERAL  DIAGRAM  OF  A  BINARY  TREE 


one  root  node  which  is  said  to  be  at  level  1.  The  descendants  of 
the  root  node  are  said  to  be  at  level  2.  The  descendants  of  these 
nodes  are  at  level  3. 

The  descendants  of  any  node  are  known  as  the  right  son  and 
left  son.  The  iisediate  ancestor  of  any  node  is  known  as  its 
father.  A  convenient  labeling  for  the  nodes  is  to  call  a  given 
father,  node  I.  Its  left  son  is  node  2*1  and  the  right  son  is 
node  2*I*1.  This  results  in  the  labels  shown  in  Figure  4.6.  Note 
that  by  using  this  numbering  scheme  a  binary  tree  can  very  easily 
be  placed  into  an  array.  One  restriction  that  must  be  applied  is 
that  only  complete  tree  will  be  used  in  this  sorting  method. 
Complete  trees  are  trees  in  which  if  node  I  exists  then  so  does 
all  nodes  from  1  to  1-1.  In  other  words,  there  are  no  holes  in 
the  tree. 

A  heap  is  a  binary  tree  in  which  each  ancestor  node  is 
greater  than  or  egual  to  its  decendants.  The  complete  binary  tree 
shown  in  Figure  4.7  is  a  heap.  The  following  calculations  can  be 
used  to  compute  the  father  and  sons  of  nodes  - 
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Father  of  A (I)  is  A (1/2) 
Left  Son  of  A(I)  is  A(2*I) 
Right  Sen  of  A (I)  is  A(2*I*1) 


1. 


r * -i 

I  I 

I                      I 
2.   _  3. 

T 


i 


iiii 
iiii 

4.         5.         6.         7. 


FIGURE  4.6  -  GENERAL  DIAGRAM  OF  A  BINARY  TREE  WITH 
LABELED  NODES 


The  steps  to  the  heap  sort  algorithm  are: 

1)  Make  the  array  into  a  heap. 

2)  Swap  the  root  node  with  the  last  node  in  the  tree. 

3)  Eliminate  the  last  node  from  the  tree. 

4)  Make  the  tree  into  a  heap. 

5)  Repeat   steps   2  through  4  until  only  the  root  node 
remains. 

First,  a  heap  must  be  made.  This  can  be  done  using  the  following 

steps  - 

1)  Start  with  two  nodes. 

2)  Make  a  heap. 

3)  Add  the  next  ncde. 

4)  Repeat  steps  2  and  3  until  there  are  no  nodes  left. 

A   useful   property   of  trees  is  that  "if  a  tree  is  a  heap  except 
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tor  one  node  then  exchanging  the  father  of   that   node   with   the 
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FIGURE  4.7  -  SAMPLE  COHPLETE  BINARY  TREE  THAT  IS 
A  HEAP 


node  will  cause  the  only  offending  relation  to  be  between  that 
father  node  and  his  ancestors1*.  This  results  in  the  program  of 
Figure  4.8.  Now  that  the  heap  has  been  foraed,  it  oust  be  sorted. 
The  following  algorithm  will  sort  the  heap. 

1)  Swap  the  root  node  (A  ( 1) )  and  the  last  node  in  the 
tree  (A  (I)). 

2)  Eliminate  A(I)  from  the  tree. 

3)  Hake  the  tree  into  a  heap  by  bubbling  the  element 
that  was  just  placed  in  the  the  root  node  down  as  far 
as  it  will  go. 

4)  Repeat  steps  1  to  3  until  there  is  only  one  node 
left  in  the  tree. 

This  algorithm  becomes  the  program  segment  shown  in  Figure  4.9. 
Note  that  in  staking  the  heap,  the  number  of  comparisons  made  is 
L0G2(N),  and  that  in  sorting  the  heap  there  is  at  most  2*L0G2(N) 
comparisons.  This  sort  is  then  of  order  LCG2(N). 
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/*  ADD  NODES  ONE  AT  A  TIME  STARTING  HITH  TliO     */ 
DO  1=2  TO  N; 

/*  LET  J  PCINT  TO  THE  NODE  JUST  ADDED  */ 

J=I; 

/*  AS  LONG  AS  J  HAS  A  FATHER  DO  THE  FOLLOWING  */ 

DO  WHILE(J/2>=1) ; 

/*  CHECK  TO  SEE  IF  TREE  IS  A  HEAP  */ 

IF  A(J/2)>=A(J)  THEN  GO  TO  OUT; 

/*  SIAP  FATHER  AND  SON  AND  REPEAT  PROCESS    */ 

/*  HITH  FATHER  */ 

TEHP=A  (J/2)  ; 

A(J/2)=A(J)  ; 

A(J)*TEMF; 

J=J/2; 

END; 
OUTrFND; 


FIGURE  4.8  -  EROGRAM  SEGMENT  TO  FORM  A  HEAP 
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/*  START 

I=N; 

/*  GO  AS  LON 

/*  LEFT  IN  T 

DO  HHILE(I>1 
/*  SiAP  TH 
TEHP=A(1)  ; 
A(1)=A(I); 
A  (I)*TEHP; 
/*  ELIMINA 
1*1-1; 
/*  HAKE  A 

J=1; 

K=2*J; 

/*  KEEP  GO 

DO  WHILE(K 
/*  FIND 
IF  K<I  T 
/*  CHECK 
/*  SON  A 
IF  A(J)> 
/*  NOT  I 
TEHP=A(J 
A(J)=A  (K 
A(J)=TEM 
J=K; 
K=2*J; 
END; 

EXIT  HAKE 


WITH  N  ELEMENTS 


G  AS  THERE  IS  HCBE  THAN  1  ELEMENT 
HE  TREE 

); 

E  ROOT  NODE  AND  LAST  NODE 


TE  LAST  NODE  FROM  THE  TREE 
HEAP  FRCH  THE  TREE 


*/ 

V 

*/ 


*/ 


ING  AS  LONG  AS  J  HAS  A  SON  */ 

<=D  ; 

THE  LARGEST  SON  */ 

HEN  IF  A(K)<A(K+1)  THEN  K=K*1; 

TO  SEE  IF  TOP  NODE  AND  LARGEST      */ 
BE  IN  ORDER  */ 

A(K)  THEN  GO  TO  EXIT_MAKE_HEAP ; 
N  ORDER  SO  SNAP  ELEMENTS  AND  REPEAT  */ 

); 
); 
E; 


_HEAP:END; 


FIGUFE  4.9  -  PROGRAM  SEGMENT  TO  SORT  THE  HEAP 
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4.6  QUICKSORT 


Another  fast  method  for  sorting  arrays  is  known  as  the 
quicksort.  A  basic  part  of  the  algorithm  is  the  process  of 
partitioning  the  array  into  three  segments  as  shown  below: 

A  (L)     A(N-1)  A(M)  A(M+1)     A  (L) 


I    ^A(M)      |      |       >A(H)    J 


Once  the  array  has  been  partitioned,  the  two  partitions,  from 
A  (L)  to  A<N-1)  and  A  (MO)  to  A(0),  can  each  be  partitioned. 
Eventually,  the  partitions  will  each  contain  only  one  or  two 
elements  of  the  array.  If  the  partition  contains  only  one  array 
element  nothing  needs  to  be  done.  If  it  contains  two  array 
elements,  a  check  is  made  to  make  certain  they  are  in  their 
proper  order  and  if  they  are  not  they  are  swapped. 

To  start  the  partitioning  process  an  A(H)  value  must  be 
choosen.  This  value  should  be  one  that  will,  hopefully,  evenly 
partition  the  ether  values  in  the  array.  Because  there  is  no  way 
of  knowing  what  the  values  in  the  array  are,  one  of  the  values 
must  be  choosen  under  the  assumption  that  it  is  the  middle  value 
of  all  values  in  the  array.  The  first  value  in  the  partition  is 
choosen  for  lack  of  a  better  choice. 

The  partitioning  algorithm  is  given  in  Figure  4. 10. 
Basically,  what  happens  is  that  two  pointers  into  the  array  are 
used,  n  and  N.  All  values  from  A(L*1)  to  A(N-1)  are  less  than  the 
value  of  A  (L) ,  the  choosen  middle  value.  All  values  from  A(M*1) 
to  A(0)  are  greater  than  A  (L) .  The  pointers  are  moved  closer  and 
closer  together  till  they  pass  each  other.  The  pointer  N  is  moved 
until  a  value  is  found  larger  than  A (L)  then  the  pointer  H  is 
moved  until  a  value  is  found  less  than  A  (L) .  These  values  are 
swapped  and  the  process  is  repeated  until  H<N.  This  occurs  when 
the  array  has  been  partitioned. 

Suppose  that  the  algorithm  is  applied  to  the  following 
array  - 
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/*  SET  VALUES  OF  N  AND  H  */ 

H=U; 

N=L*1; 

/*  LGOF  TO  EITHER  INCREASE  VALUE  OF  N  OR       */ 

/*  DECREASE  VALUE  OF  H  PARTITIONING  THE  ARRAY  */ 

DO  SHILE(N<=H)  ; 

IF  A(L)>=A(N)  THEN  N*N*1; 
ELSE  DO; 

/*  DECREASE  VALUE  OF  H  UNTIL  A  VALUE  IS    */ 
/*  FOUND  LESS  THAN  A(L),  THEN  SNAP         */ 
DO  WHILE  (A(H) >A(L) )  ; 
M=M-1; 
END; 
IF  B>N  THEN  DO; 
TEHP-A (N) ; 
A(N)=A(M)  ; 
A(M)=TEMP; 
N=N+1; 
«=H-1; 
END; 
END; 
END; 
/*  THE  ARRAY  IS  NOW  PARTITIONED  SO  SNAP  A(M)   */ 
/*  AND  A(L)  */ 

TEBP-A  (H)  ; 
A(B)=A(L)  ; 
A(L) =TEHP; 

FIGURE  4.10  -  PARTITIONING  PROGRAM 
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A(1)=10 

A(2)=  5 

A(3)=  4 

A(4)=19  (4.8) 

A(5)  =18 

A<6)  =  1 

A(7)=  3 

A(8)=15 

Assume  that  L=  1  and  U=8  to  start.  The  pointers  a  and  N  are  set  to 
point  at  their  starting  positions: 

A(1)  =10 

A(2)=  5< — N 

A(3)=  4 

A(4)=19  (4.9) 

A(5)  =18 

A(6)=  1 

A  (7)=  3 

A(8)=15<  — H 

N  is  loved  until  a  value  is  found  larger   than   A  (L) ,   and   H   is 
moved  until  a  value  is  found  snaller  than  A(L). 

A(1)=10 

A(2)=  5 

A(3)=  4 

A(4)=19< — N  (1.10) 

A(5)=18 

A(6)=  1 

A  (7)=  3< — M 

A(8)=15 

These  values  are  swapped  and  the  process  is  repeated. 

A(1)  =  10 

A(2)=  5 

A(3)=  4 

A(4)=  3  (4.  1  1) 

A(5)=18< — N 

A(6)  =  1< — M 

A(7)=19 

A(8)=15 
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Again  the  values  are  swapped  and  the  process  is  repeated. 

A{1)=10 

A(2)=  5 

A(3)=  4 

A<4)^  3  (4.12) 

A(5)=  1<~  H 

A(6)=18< — N 

A(7)=19 

A<8)=15 

It  is  now  found  that  M  and  N  have  passed  each  other  in  the  array. 
The  array  has  been  partitioned,  so  A (L)  and  A(H)  are  swapped  to 
complete  the  process. 

A(1)=  1 

A(2)  =  5     VALUES  <  A(M) 


A(3)=  4 
A(4)  =  3 

A(5)=10     A  (N) 


(4.13) 


A(6) =18 

A(7)=19     VALUES  >  A(W) 

A(8)=15 


The  process  can  now  be  repeated  on  A ( 1)  to  A (4)  and  A (6)  to 
A  (8).  Because  there  are  now  two  subacrays  to  be  partitioned  and 
only  one  can  be  done  at  a  time,  the  other  subarray  must  be 
remembered.  This  is  done  by  storing  the  lower  and  upper  positions 
of  the  subarrays  in  two  arrays  LOWER  and  UPPER.  Whenever  a 
subarray  is  partitioned  the  positions  of  the  new  subarrays  are 
placed  in  the  arrays  LOWER  and  UPPER.  After  partitioning  a 
subarray,  the  positions  of  the  next  subarray  are  removed  from 
LOWER  and  UPPER.  This  process  is  repeated  until  all  subarrays  are 
sorted. 

Figure  4,11  shows  the  statements  used  to  store  the  subarrays 
and  recall  them  when  needed.  The  variable  CNT  keeps  a  count  of 
the  number  of  subarrays  yet  to  be  partitioned. 
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/*  PLACE  UPPER  AND  LOWER  BOUNDS  CN  ARRAI  INTO    */ 

/*  'UPPER*  AND  "LOWER*  AND  INITIALIZE  CNT        */ 

LOWER (1)=LBCUND(A,1)  ; 

UPPER(1)=HBOUND(A,1)  ; 

CNT=1; 

/*  LOOP  TILL  NO  MORE  SUBARBAYS  ARE  IEPT  */ 

DO  WHILE  <CNT-=0) ; 

/*  IF  THE  SUBARRAY  CONTAINS  2  OB  LESS  ELEMENTS*/ 
/*  THEN  SORT  IT  AND  DELETE  IT  FROM  THE  LIST.  */ 
/*  OTHERWISE,  PARTITION  IT  INTO  TWO  SOBARRAYS  */ 
/*  AND  ADC  THEM  TO  THE  LIST  V 

L=LOWER (CNT) ; 
0=UPPER(CNT)  ; 
CNT=CNT-1; 

IF  U=L*1  THEN  IF  A(L)>A(U)  THEN  DO; 
TEMP=»(L) ; 
A<L)=A(U)  ; 
A(U)=TEMP; 
END; 
IF  U>L*1  THEN  DC; 

/*  AT  THIS  POINT  THE  STATEMENTS  OF  FIGURE  */ 
/*  4.10  SHOULD  BE  INSERTED  TO  PARTITION  THE  */ 
/*  SUEARRAY  */ 

/*  ADD  NEW  SUBARRAYS  TO  LIST  */ 

CNT=CNT*1; 
LOWER  (CNT)=L; 
UPPER  <CNT)  =  M-1; 
CNT=CNT*1; 
LCWER(CNT)=M*1; 
UPPER  (CNT)  =U; 
END; 
END; 


FIGURE  4.11  -  QUICKSORT  PROGRAM 
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4.7  USE  CF  PCINTEfi  AHBAYS 


One  problem  occurs  when  any  of  the  above  sorts  are  used  with 
the  student  structure  -  to  swap  two  student  structures  involves 
swapping  every  item  within  the  structure.  If  the  sort  is  being 
used  with  a  very  large  structure,  much  more  time  is  going  to  be 
spent  swapping  information  than  getting  it  into  order.  By  using  a 
pointer  array  this  problem  can  be  eliminated. 

The  pointer  array  is  a  list  of  numbers  that  point  to  the 
data  in  its  proper  order.  For  example  - 


A(1)  =  10 

B(1)=    1 

A(2)=23 

B(2)=    2 

A<3)=    5 

E(3)=    3 

A  (4)=75 

B<4)~    4 

A(5)=60 

B(5)=    5 

(4.14) 


The  array  A  holds  the  information  that  must  be  sorted.  The  array 
B  points  to  the  array  A  in  its  current  order.  After  sorting  the 
arrays  will  be  - 


(4.15) 


B(1)  points  to  the  smallest  value  in  array  A,  the  value  of  A(3), 
while  B(5)  points  to  the  largest  value,  A(4).  Note  that  the  array 
A  has  not  been  changed.  The  array  B  has  been  changed  so  that  it 
now  points  to  the  information  in  the  A  array  in  its  sorted  order. 
This  method  should  be  used  whenever  large  amounts  of  information 
must  be  swapped  in  sorting. 


A(1)  =  10 

B(1)  = 

3 

A(2)^23 

B(2)  = 

1 

A(3)=    5 

B(3)  = 

2 

A(4)=75 

B(4)  = 

5 

A(5)=60 

E(5)  = 

4 
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CHAPTER  5  CHARACTER  STRING  HANIPUIATION 


PL/I  was  designed  to  use  the  best  programming  features  that 
were  currently  available  in  FORTRAN  and  COBOL.  All  that  has  been 
discussed  so  far  in  this  book  are  features  that  vere  taken  from 
FORTRAN.  COBOL's  contributing  features  were  those  cf  character 
string  manipulation. 


5.1  DECLARING  CHARACTER  VARIABLES 


In  declaring  character  strings  two  items  are  necessary  -  the 
attribute  CHAR  or  CHARACTER  and  the  number  of  characters  that  the 
variable  should  hold,  e.g. 

DECLARE  A  CHAR(10);  (5.1) 

This  statement  declares  a  variable  A  which  holds  10  characters. 
An  additional  attribute  of  VARYING  may  be  specified.  This  allows 
the  variable  tc  contain  only  as  many  characters  as  are  placed 
into  it. 

DECLARE  B  CHAR(10)  VARYING;  (5.2) 
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5.2  ASSIGNMENT  STATEMENTS 


If  the  variables  A  and  B  declared  above  ace  now  both 
assigned  to  bold  the  characters  *DOG*,  the  variable  A  will 
contain  the  characters  'DOG*  followed  by  seven  blanks  while  the 
variable  B  will  only  contain  the  characters  'DOG'.  To  sake  these 
assignments  the  characters  'DOG'  are  placed  inside  single 
guotation  marks  as  the  following  assignment  statements  show  - 

A  =  'DOG1  ; 

B  =  'DOG* ;  (5.3) 

Character  strings  are  always  placed  into  variables  left  justified 
so  that  the  variable  A  contains  the  characters  'DOG1  in  the  three 
leftmost  characters  and  they  are  followed  by  the  seven  blanks. 
Note  that  blanks  are  significant  when  assignments  are  made  to 
variables  that  have  been  declared  varying,  e.g. 

B  =  'DOG  •;  (5.4) 

results  in  the  variable  B  containing  the  characters  •DOG1 
followed  by  a  single  blank. 

Because  the  variable  A  has  not  been  declared  as  being 
varying,  the  variable  A  must  always  contain  10  characters.  When 
the  characters  •DOG*  are  assigned  to  it,  the  remaining  character 
positions  are  filled  or  padded  with  blanks. 

If  A  or  B  had  instead  been  assigned  the  characters 
• ABCDEFGHIJK'  another  problem  arises. 

A  =  •ABCDEFGHIJK1 ; 

B  =  'ABCDEFGHUK*  ;  (5.5) 

A  and  B  cannot  held  more  than  10  characters  and  the  assignment 
statements  try  to  place  11  characters  in  each  variable.  Because 
room  is  only  available  for  10  characters,  the  first  10  characters 
are  placed  intc  the  variables  with  the  remaining  character  *K' 
being  thrown  away. 
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5.3  CONCATENATION 


As  with  numbers,  it  would  fce  quite  useful  to  add  characters 
to  character  strings  that  already  exist.  The  concatenation 
operation  is  used  to  perforn  this.  Suppose  that  the  variables  A 
and  5  from  above  each  contained  the  characters  'DOG1  and  the 
characters  'CAT*  are  to  be  added  to  each.  This  can  be  expressed 
as  shown  below. 

A  =  A  ||  «CAT» ; 

B  =  B  ||  'CAT';  (5.6) 

The  two  vertical  bars,  )J,  are  the  concatenation  operator.  The 
resulting  string  in  B  will  be  •DCGCAT1  while  A  will  not  be 
changed.  No  change  will  occur  in  the  variable  A  because  it 
already  contains  10  characters  and  concatenating  on  3  more 
results  in  a  character  string  13  characters  long.  This  string  is 
then  assigned  to  the  variable  A  resulting  in  the  last  three 
characters  or  •CAT1  being  truncated  or  thrown  away. 


5. a  BUILT-IN  FUNCIIONS 


Many  character  string  built-in  functions  are  available  in 
PL/C  and  PL/I  including  INDEX,  SUBSTB,  LENGTH,  and  VERIFY. 

LENGTH  is  used  to  determine  the  length  of  a  character 
string.  If  the  variables  A  and  B  frcm  above  each  contain  the 
characters  *D0G*  the  following  would  te  observed  - 

1)  LENGTH (A)   would   be  10,  because  the  variable  A  was 
declared  to  always  contain  10  characters. 

2)  LENGTH (B)  would  be  3,  because  B  has  been  declared  to 
be  varying  in  length  and  contains  the  characters  'DOG'. 

INDEX  is  used  to  locate  the  positions  of  certain  substrings 
in  character  strings.  Two  arguments  are  used  in  this  function. 
The  first  is  the  character  string  that  is  being  looked  in,  while 
the  second  is  the  character  string  that  is  being  looked  for.  For 
example,  {assuming  that  B  contains  •DOG*)  - 
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K=  INDEX(E,«0») ;  (5.7) 

would  result  in  a  value  of  2  being  assigned  to  K  because   '0*   is 
the  second  character  in  the  variable  B. 

J=  INDEX(B, 'OG1) ;  (5.8) 

would  also  result  in  a  value  of  2  being  assigned  to  J  because  the 
string  l0Gl  starts  in  the  second  character  of  B. 

L=  INDEX<B,'X') ;  (5.9) 

will   result   in   zero   being  assigned  to  L  because  'X'  does  not 
occur  anywhere  in  the  variable  B. 

The  VERIFY  function  is  very  similar  to  the  INDEX  function. 
Two  arguments  are  used.  The  first  is  the  character  string  that  is 
being  looked  into  while  the  second  string  consists  of  the 
characters  that  should  be  ignored  in  the  first  string.  The  value 
returned  is  the  position  of  the  first  character  in  the  first 
string  that  dees  not  occur  in  the  second  string. 

1=  VERIFY  (B,«OG») ;  (5.10) 

will  result  in  a  value  of  1   being   assigned   to  I   because   the 
character  *0'  is  not  in  the  second  string. 

fl=  VERIFY^'OD1)  ;  (5.11) 

will  result  in  a  value  of  3  being  assigned  to  M  and 

N=  VEBIFY(B, •0DG«) ;  (5.12) 

will   result   in   zero   being   assigned   to   N  because  all  of  the 
characters  in  the  variable  B  are  contained  in  the  second  string. 

The  SUBSIR  function  is  used  to  obtain  substrings  or  parts  of 
character  strings.  Either  two  or  three  arguments  are  used.  The 
first  is  always  the  character  string  that  is  being  examined.  The 
second  argument  is  the  position  of  the  first  character  in  the 
substring.  The  third  argument,  if  given,  is  the  number  of 
characters  to  be  in  the  substring.  If  a  third  argument  is  not 
given,  the  resulting  substring  will  consist  of  all  remaining 
characters  in  the  string.  The  following  examples  show  the  results 
of  using  the  SUBSTR  function  in  various  ways. 
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SUBSTR(» AECD',2, 1)  results  in  • B1 

SUBSTR(«AECD»,2)  results  in  •BCD* 

SUBSTB(»ABCD» ,3,2)    results  in  »CD« 

SOBSTR(«ABCD« ,3)  results  in  'CD* 

SUBSTB  (• AECD1 ,4,2)  results  in  an  error  because  an 
attempt  is  made  to  examine  more  characters  than  are  in 
the  original  string. 

SUBSTfi  can  also  be  used   as   a   pseudo-variable   to   specify 

where  characters  should  be  placed  in  a  variable.  Suppose  that  the 

variable   A,   declared  to   be   CHAR  (10),  contains  the  characters 

•DOG'. 

SUBSTR(A,4,3)=«CAT»;  would  cause  the  variable  A  to 
become  •DCGCAT     • 

SUBSTB(Ar3)=«DOGl ;  would  cause  A  to  become  'DODOG      • 

SUBSTB(A,5)-'ABCDEFGH» ;  would  cause  A  to  become 
•DOG  ABCDEF* 

SUBSTfi (A# 11,2) =,ABI ;  would  result  in  an  error  because  A 
contains  only  10  characters. 


5.5  CHABACTER  STRING  CONDITIONS 


Character  strings  can  also  be  used  in  testing  conditions. 
The  following  examples  show  the  results  of  testing  some 
conditions. 

•A*  =  *A  •   true,  the  first  string  is  padded  with 
blanks  on  the  right 

•  A1  =  'A  •   false,  blanks  are  significant  in 
comparisons 

•ABC  >  •ABB1   true,  comparison  is  made  character 
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by  character  in  the  string  f roi  the  left 
until  tvc  characters  are  found  diferent. 
The  character  'C*  is  considered  to  be 
greater  than  the  character  •Bl. 

•FRANK  CARL1  <  'FRANK,  CARL'   true 

•2»  <  «4»   true 

•1«  <  »4#   true 

•  •  <  »A»   true 

rhe  order  of  the  characters  in  size  from  largest  to   smallest   is 
given  below  with  the  saallest  given  on  the  left  - 

.  <(*|G$*)  ;-.-/#X_>?:*a«  =  ABCCEFGHIJKLflNOPQRSTUVWXYZ0123456789 
with  a  blank  being  less  than  '•'. 
5.6  NULL  STRING 


The  null  string  or  string  of  characters  containing  no 
characters  can  be  assigned  tc  variables.  Assuming  A  is  CHAR (10) 
and  B  is  CHAR(10)  VARYING  - 

A  =  '  '  * 

B  =  ••;  (5.13) 

will   result   in  A  being  set  to  all  blanks  and  B  being  set  to  the 
null  string.  The  length  of  a  null  string  is  zero. 
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CHAPTER  6  PBOCEDOBES 


There  are  two  majcr  reasons  why  procedures  are  used  in 
programs.  Many  problems  are  too  large  and  complex  to  solve  as  a 
whole.  These  problems  are  broken  into  smaller  problems  which  are 
hopefully  easier  to  solve  than  the  entire  original  problem.  Each 
of  these  smaller  problems  can  be  solved  and  debugged  separately 
and  then  combined  tc  form  the  finished  program  that  solves  the 
original  problem.  This  can  also  speed  the  debugging  time  for 
while  one  small  problem  is  being  debugged  the  other  small 
problems  can  also  be  debugged.  This  technigue  is  used  quite  often 
in  industry,  A  skilled  programmer  known  as  a  system's  analyst  is 
assigned  a  problem.  He  examines  the  problem  and  breaks  it  into  a 
number  of  smaller  problems  giving  each  of  his  programmers  one  of 
these  problems  to  solve.  Each  programmer  then  concentrates  on  his 
program  and  works  until  an  acceptable  programmed  solution  is 
reached.  The  system1 s  analyst  then  combines  all  of  these  small 
programs  into  one  large  program  to  achieve  the  desired  overall 
solution. 

The  other  reason  for  using  procedures  is  that  programmers 
are  basically  lazy.  If  a  program  solution  reguires  some  operation 
to  be  performed  many  times  in  the  program,  a  programmer  will 
write  up  this  operation  only  once  and  make  it  a  procedure, 
whenever  the  operation  should  be  performed,  the  procedure  is  then 
referenced  and  executed.  This  saves  the  programmer  from  having  to 
write  and  punch  this  commonly  used  operation  many  times  within 
the  program.  The  general  fcrm  of  a  PfiOCEDURE  is  given  in  Figure 
6.1.  Comments  should  always  procede  a  procedure.  They  should  give 
a  clear  explanation  of  what  the  procedure  is  attempting  to  do. 

The   ENTRY  NAME  is  an  identifier  that  contains  at  most  seven 
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alphanumeric  characters.  This  identifier  is  used   in   referencing 


/*  Comments  About  the  Procedure  */ 
ENTRY_NAME:PROCDUBE((List  of  Parameters) } 

{BETURNS(Return  Attributes)} 

{RECURSIVE} ; 
Declaration  of  Parameters  and  Local  Variables 
Statements  to  be  Executed 
END  {ENTRY_NAME} ; 

FIGURE  6.1  -  GENERAL  FORM  OF  A  PROCEDURE 


the   procedure   (i.e.,  causing  the  procedure  to  be  executed).  The 
ENTRY_NAME  is  followed  by  a  colon  and  the  word  PROCEDURE  or  PROC. 

An  optional  list  cf  parameters  follow  the  word  PROCEDURE. 

Parameters  are  identifiers  that  are  replaced  by  variables 
when  the  procedure  is  referenced.  They  can  be  considered  to  be 
dummy  names  that  will  be  replaced  by  real  variables  or  values 
when  the  procedure  is  referenced. 

A  procedure  can  be  used  in  one  of  two  ways:  by  being  CALLed 
or  used  as  a  function.  If  the  procedure  is  used  as  a  function 
procedure,  the  type  of  value  that  will  be  given  back  or  returned 
by  the  procedure  must  be  specified.  This  is  done  with  the  RETURNS 
clause.  Inside  the  parentheses  is  placed  toe  type  of  value  that 
will  be  returned  by  the  procedure  (e.g.,  FIXED  DECIMAL,  CHAR(80), 
FIXED  BINARY(10,2)  ).  The  value  specified  in  the  procedure  to  be 
returned  will  then  be  converted  to  this  type  and  returned  to 
where  the  procedure  is  referenced.  A  CALLED  procedure  does  not 
use  the  RETURNS  clause. 

Finally,  the  procedure  can  be  specified  as  being  RECURSIVE. 
A  RECURSIVE  procedure  is  cne  that  references  itself  or  causes 
itself  to  be  executed. 

Following  the  procedure  statement  are  normally  DECLARE 
statements  to  declare  the  parameters  and  whatever  temporary 
variables  will  be  needed  by  the  procedure.  The  temporary  or  local 
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variables  are  created  when  the  procedure  is  referenced,  used 
during  the  procedure's  execution,  and  destroyed  when  the 
procedure  ends  its  execution.  They  are  declared  in  the  sane  way 
variables  are  declared  in  the  lain  program  with  one  exception: 
the  parameters  may  be  used  to  give  the  dimensions  of  a  temporary 
array  or  length  of  a  temporary  character  string.  In  this  way  a 
temporary  array  or  character  string  can  be  set  up  to  a  variable 
size,  a  size  depending  on  the  parameters  value. 

In  declaring  a  parameter  care  should  be  taken  tc  make  sure 
that  the  attributes  given  tc  the  parameter  are  the  same  as  the 
corresponding  variable's  (the  variable  that  is  associated  with 
the  parameter  when  then  procedure  is  referenced) .  If  the 
parameter  does  not  have  the  same  attributes,  difficulties  can 
arise. 

Following  the  DECLARES  are  the  statements  to  be  executed  by 
the  procedure.  The  procedure  is  ended  with  an  END  statement. 


6.1  PLACEMENT  OP  PROCEDURES  IN  A  ERCGRAM 


Procedures  can  be  placed  in  twc  places  in  relation  to  the 
main  procedure:  internal  to  the  main  procedure  or  external  to  it. 
Below  is  an  example  showing  several  internal  and  external 
procedures. 

A:PR0C  OPTIONS (MAIN)  ; 


8:ER0C; 
END  B; 

C:FR0C; 
C1:PR0C; 

END  C1; 
ENE  C; 
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END  A;  (6.1) 

SPHOCESS 
D:PBOC; 


D1:FB0C; 

END  D1; 

END  D; 
JFBOCESS 
EsPBOC; 

END  E; 

Procedures  6,  C,  and  C1  are  all  internal  procedures  of  A.  C1 
is  also  internal  to  C.  Procedures  D  and  E  are  external 
procedures.  Procedure  D  also  has  an  internal  procedure  D1.  Note 
that  the  external  procedures  folio*  the  end  of  the  main  procedure 
A  and  that  they  ate  proceded  by  a  $PBOCESS  card.  The  $PBOCESS 
cards  are  special  cards  used  to  infora  the  PL/C  coapliler  that 
vhat  follows  is  an  external  procedure.  The  IPBOCESS  cards  must  be 
typed  starting  in  column  1  with  no  blanks  between  the  letters. 
The  $PBOCESS  card  aust  also  be  used  to  signify  external 
procedures  when  using  PL/I. 


6.2  CALLED  FBOCEDOBES 


Called  procedures  are  referenced  cr  invoked  by  using  a  CALL 
statement,  the  called  procedure  of  Figure  6.1  might  be  invoked  by 
using  the  following  CALL  statement  - 

CALL  SWAP  (A, E)  ;  (6.2) 

In  the  CALL  statement  the  word  CALL  is  followed  by  the  name 
of  the  procedure  to  be  executed.  Following  the  name  of  the 
procedure  are  the  variables  that  are  to  be  associated  with  the 
parameters  specified  by  the  procedure.  The  variable  A  will  be 
associated  with  the  parameter  X  and  the  variable  B  will  be 
associated  with  the  parameter  I.  Expressions  and  constants  can  be 
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used  in  place  cf  the  variables  in  a  CALL  statement. 


/*  PROCEDURE  TO  SWAP  TWO  VALDES  */ 
SHAP:PHOCEDUBE(X,Y)  ; 

DCL  <X,Y)  FIXED  DEC; 

T=X; 

X=Y; 

Y=T; 

RETURN; 

END; 


FIGURE  6.1  -  SAMPLE  CALLED  PROCEDURE 


The  RETURN  statement  is  used  to  state  that  the  procedure  is 
over  and  execution  should  now  proceed  fron  the  place  the 
procedure  was  called. 


6.3  FUNCTION  PROCEDURES 


Function  procedures  are  referenced  or  invoked  by  using  the 
procedure  name  in  an  assignment  statement  or  in  some  expression 
to  be  evaluated.  The  function  procedure  of  Figure  6.2  can  be 
invoked  by  the  three  statements  shown  below  - 

DCL  B(17)  FLCAT  DEC; 
DCL  A(10)  FIXED  DEC; 

PUT  LIST(LARGE(B,5)  )  ;  (6.3) 

Q=LARGE  (A,  J)  ; 

P=A (LARGE(B, K*3)) ; 


CHAPTER  6  -  PROCEDURES  91 


/*  FIND  THE  LARGEST  NUHBER  IN  AN  ARRAY     */ 
LARGE:PROC<A#N)  RETURNS (FIXED  DEC); 

/*  A  IS  THE  ARRAY  */ 

/*  N  IS  THE  NUHBER  OF  ARRAY  ELEMENTS  TO  */ 

/*    BE  SEARCHED  */ 

DCL  (A(*),N,T)  FIXED  DEC; 

T=A(1); 

DO  J=2  TO  N; 

IF  A(J)>T  THEN  T=A  (J)  ; 
END; 

RETUBN(T)  ; 

END; 


FIGURE  6.2  -  SAMPLE  FUNCTION  PROCEDUBE 


The  use  of  a  function  procedure  looks  very  similar  to  a 
reference  to  an  array  element.  In  the  first  useage  of  the 
function  procedure,  an  array  B  is  specified  and  a  number  •5'.  The 
procedure  will  be  executed  by  locking  thru  the  first  five  numbers 
in  the  array  B  and  returning  the  value  of  the  largest  to  be 
output  by  the  PUT  LIST  statement.  In  the  second  useage,  Q  will  be 
given  the  value  of  the  largest  number  in  the  array  A  thru  the  Jth 
number.  In  the  last  useage,  P  will  be  given  the  value  of  a  number 
in  the  array  A.  The  pcsticn  in  the  array  A  will  be  the  largest 
number  in  the  first  »K  plus  three1  positions  of  array  B. 

Because  the  size  cf  the  array  that  will  be  used  with  this 
function  is  net  known,  a  size  can  not  be  given  to  the  parameter  A 
in  the  procedure  when  the  parameter  is  declared.  Instead  a  •*•  is 
given  for  the  size.  This  means  that  the  parameter  A  is  a  one 
dimensional  array  and  that  the  procedure  should  accept  whatever 
size  the  corresponding  variable  is.  The  •*■  must  also  be  used  for 
the  length  of  a  character  string  parameter.  For  example,  the 
following  DECLARE  statement  from  a  procedure  declares  a  parameter 
that  is  a  two  dimensional  array  of  character  strings  - 
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DCL  ST(*,*)  CHARACTER^)  ;  (6,4) 


6.4  INTERNAL  VS.  EXTERNAL  PROCEDURES 


Internal  and  external  procedures  not  only  differ  in  their 
placement  within  the  program,  but  also  in  the  variables  that  are 
available  for  their  use.  Suppose  the  SWAP  procedure,  given  in 
Figure  6.1  above,  has  been  used  with  the  main  procedure  shown  in 
Figure  6.3  as  an  internal  procedure. 


TEST:PROC  OPTIONS ( MAIN) ; 

* 

DCL  (T,Z,P)  FIXED  DEC; 
DCL  (¥,X)  FLOAT  DEC; 

• 

T  =  5; 
X,Y=10; 
Z  =  7; 

P  =  8; 

* 

CALL  SWAP(P,X)  ; 
SWAP:PROC(X,Y) ; 

* 

END  SWAP; 
END  TEST; 

FIGURE  6.3  -  MAIN  PROCEDURE  WITH  A  PROCEDURE  CALL 


When  the  program  is  executed,  a  block  of  memory  is  used  to 
store  the  variables  that  have  been  declared  in  the  main 
procedure.  This  block  of  memory  might  look  as  follows  just  before 
executing  the  CALL  statement: 
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r— . 

i 

* 

|    T=5 

I    X=10 

l   y^io 

|     Z=7 

J    P^9 

J               • 

(6.5) 


When  the  CALL  statement  is  executed,  a  nev  block  of  memory 
must  be  set  up  to  hold  the  parameters  and  local  variables 
declared  within  SWAP.  Because  SWAP  is  an  internal  procedure,  this 
block  of  memory  will  be  created  internal  to  the  block  of  memory 
used  by  the  main  procedure. 


1  =  5 

Y=10E0 
X=10E0 
Z=7 
P  =  8 


r  i 

I  ¥   I 

1  I 

i  X   | 


i-_--j 


(6.6) 


x. . J 


Next,  the  parameters  are  set  so  that  they  point  to  the 
variables  that  they  are  associated  with.  A  check  is  made  to  make 
sure  that  the  parameters  and  variables  have  the  same  attributes. 
If  they  do  not,  a  dummy  variable  is  set  up  to  hold  the  value  of 
the  variable.  This  dummy  variable* s  attributes  are  made  to  match 
those  of  the  parameter's.  The  values  that  are  in  the  variables 
are  now  transferred  in  tc  the  parameters. 


— — ■- -j 

:  I 

T=5  J 

Y=10EC   r -,| 

X=10E0  |  |j 
X1=10< — +-Y=10  H 
Z=7      |       || 

P  =  8< +-X=8   || 

-       i j  , 

— j 


(6.7) 
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The  proc€dure  now  starts  to  execute.  The  first  statement 
says  to  set  T  equal  to  the  value  in  X.  The  SWAP  procedure  looks 
through  its  list  of  parameters  and  variables  for  T  and  X  and  only 
is  able  to  find  X.  Because  the  procedure  is  internal  to  another 
block  of  memory,  a  search  is  then  made  through  those  variables 
for  T  and  a  T  is  found.  The  value  of  T  is  set  to  that  of  X.  X  is 
set  to  the  value  of  X  and  Y  to  the  value  of  T. 


T=8 

Y=10EO   r 

X=10E0   | 

X1=10< — +-Y  =  8 

Z=7      | 

P  =  8< +-X=10 

-       i _-. 


i 

I 

I 

il 

II 

II 

II 

II 

Jl 


(6.8) 


The  RETURN  statement  is  now  executed.  The  values  in 
paramters  Y  and  X  are  transferred  back  to  the  variables  that  they 
point  to.  The  parameters  and  any  temporary  variables  are 
destroyed,  leaving  the  following  results: 


T  =  8 

Y=10E0 

X=10E0 

Z=7 

P=10 


(6.9) 


The  important  results  cf  this  example  are: 

1)  The  value  of  the  parameter  Y  are  placed  in  the 
temporary  variable  XI  when  the  RETURN  is  executed.  X1 
is  then  destroyed  without  transferring  this  value  into 
X. 


2)   Because  SiAP  is  internal  to  another  procedure,  when 
variables  cannot  be  found  in  SWAP'S  block  of   memory   a 
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hunt  is  made  thiough  the  next 
will  continue  until  either  the 
there  are  no  mote  containing  bl 
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larger  block.  This  hunt 

variable  is  found  or 
ocks.  If  it  is  not  found 
ontaining  blocks) ,  the 
r  internal  variable  to 
k  of  memory.  In  other 
the  main  procedure,  it 
ocal  variable  inside  the 

SWAP.  Because  a   T   was 

value. 


Suppose  that  SWAP  had  been  used  in  the  program  as  an 
external  procedure  instead  of  an  internal  procedure.  When  the 
CALL  statement  was  executed  the  following  would  have  resulted  : 


:  1 
T=5  | 
Y=10E0  |  (6.10) 

X=10E0  i  , ^ 

X1=10<-+-+-Y=10  J 
2=7     |  j       | 

P=8< +-+-X=8   | 

:      II       I 


When  the  procedure  tries  tc  set  T  equal  to  X,  a  search  is  made 
through  all  of  the  internal  variables  and  parameters  and  T  is  not 
found.  This  block  of  memory  is  not  contained  internal  to  any 
other  so  T  is  set  up  as  a  local  variable  and  used.  Just  before 
executing  the  BETOBN  statement  the  values  would  be: 


r~ 

T 

• 

1 

|     T=5 

1 

|     Y=10E0 

1 

J     X=10E0 

1 

r 

|     X1  =  10<- 

"h 

•+- 

•Y  = 

=8 

J     Z=7 

1 

1 

1= 

-8 

j     p=8<-- 

•+- 

-+- 

■X^ 

=  10 

• 

1 

1 

(6.11) 
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The  RETURN  statement  is  then  executed  resulting  in 


1  =  5 

Y=10E0 
X=10E0 
Z=7 

P  =  10 


(6.12) 


t j 


The  major  difference  in  the  results  is  that  the  variable  T 
in  the  main  procedure  was  not  changed  using  SWAP  as  an  external 
procedure.  The  following  observations  should  be  noted: 

1)  The  parameter  and  variable  names  declared  in  the 
procedure  are  in  no  way  related  to  variables  having  the 
same  names  in  the  main  or  calling  procedure. 

2)  Parameters  are  not  really  variables.  They  are  used 
to  point  to  or  refernece  the  variables  to  be  used. 


3)  The  pointers  from  the  parameters  are  set  before 
execution  cf  the  procedure  is  started  and  cannot  be 
changed  until  after  the  procedure  is  through  executing. 

4)  External  procedures  must  be  given  all  values  to  be 
used  from  the  main  procedure  through  the  parameter 
list.  If  the  value  is  not  •passed*  through  the 
parameters  it  cannot  be  used. 

5)  Internal  procedures  know  the  global  variables 
(variables  in  the  larger  blocks)  so  they  need  to  be 
given  as  much  or  as  little  as  the  programmer  wishes. 

6)  A  CALLed  procedure  can  change  the  value  of  the 
variables  passed  to  the  procedure.  A  function  procedure 
can  change  these  passed  variables  and  also  returns  a 
calculated  value. 
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6.5  NESTING 


Procedures  can  occur  inside  procedures  that  are  internal  to 
others.  Procedure  calls  or  references  can  occur  anywhere  a  nornal 
statement  can  occur. 


r-A:  PROCEDURE  OPTIONS (BAIN) ; 
r-B:PROC; 

r-C:PROC; 

I 

«--END  C; 

r-D:PROC; 

1     : 

*-END  D; 

•--END  B; 

AA: 

r-E:PROC; 

I      : 

I   BE: 

I     : 

«■- END  E; 
t-END  A; 
SFROCESS 
r-F:PROC; 

CC: 

r-G:FROC; 

r-H:PROC; 

I     : 
•--END  H; 

«•- END  G; 

«-END  F; 


(6.13) 


V 
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Statement  AA  is  internal  to  the  procedure  A.  From  that  statement 
the  procedures  B,  E,  and  P  can  be  called.  From  statement  BB 
procedures  E,  B  and  F  can  be  called,  note  that  neither  statement 
can  call  procedures  C,  D,  G  or  H  because  they  are  contained 
within  procedures  and  cannot  be  seen  by  the  two  statements. 
Similarly,  statements  CC  can  call  procedures  F  and  G  but  not  H, 
or  any  of  the  procedures  contained  in  A.  This  is  because  those 
procedures  cannot  be  seen  from  statement  CC. 

Note  that  statement  CC  can  call  procedure  F,  the  procedure 
that  contains  it.  A  procedure  which  calls  itself  is  known  as  a 
recursive  procedure  and  will  be  discussed  later  in  this  chapter. 


6.6  BEGIN  BLOCKS 


Many  times  programs  are  written  to  handle  a  wide  range  of 
data.  For  example,  a  grading  program  might  be  desired  by  a 
university.  This  program  should  be  able  to  compute  the  grade 
point  averages  of  all  the  students  enrolled  in  the  university. 
Once  the  program  has  been  written,  it  would  seem  logical  to  allow 
University  High  School  (UNI)  to  also  use  this  program  to  compute 
the  grades  of  its  students.  A  problem  arises  however.  It  would  be 
very  wasteful  for  the  program  to  always  be  run  for  a  maximum  of 
40,000  students.  There  are  not  40,000  students  at  UNI  so  much 
space  would  be  wasted  and  next  semester  the  university  might  have 
more  that  40,000  students,  sc  more  space  would  be  needed.  It 
would  be  much  more  logical  to  allow  the  user  to  specify  exactly 
how  many  grade  point  averages  are  going  to  be  computed.  BEGIN 
blocks  allow  this  to  be  done.  Ihe  general  form  of  a  BEGIN  block 
is  shown  in  Figure  6.4.  BEGIN  blocks  can  be  considered  as  a  cross 
between  PROCEDURES  and  the  simple  DO  statement.  When  encountered 
during  execution,  the  statements  within  the  BEGIN  block  are 
executed  as  statements  are  within  a  DO  block.  Procedures  are 
ignored  when  encountered  and  are  only  executed  when  referenced. 
PROCEDURES  and  BEGIN  blocks  allow  the  declaring  of  internal 
variables  which  DO  blocks  do  not  allow.  The  execution  of  a  BEGIN 
block  is  very  similar  to  the  execution  of  a  PROCEDURE.  First,  the 
variables  that  are  declared  are  set  up  and  assigned  initial 
values  if  any  are  given.  The  statements  in  the  block  are  then 
executed  as  they  normally  would  be.  When  the  END  statement  of  the 
block   is   encountered   all   variables   that   were   declared   are 
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destroyed   and  execution  continues  at  the  statement  following  the 


{Label:}  BEGIN; 

Declare  Statements 
Executable  Statements 
END  {Label}; 

FIGUBE  6.4  -  GENEBAL  FORM  OF  A  BEGIN 
BLOCK 


end  of  the  block. 

The  grade  problem  night  be  arranged  as  shown  in  Figure  6.5. 


Suppose  that  the  university  not  only  wanted  to  compute  the 
grade  point  averages,  but  also  figure  the  class  schedules  of  all 
the  students.  It  would  be  very  wasteful  to  keep  all  course 
intonation  for  both  semesters  in  memory  at  the  same  time,  so  two 
BEGIN  blocks  might  be  used.  The  first  would  be  used  for  computing 
the  grade  point  averages.  A  structure  would  be  declared  to  hold 
the  needed  information  and  the  calculations  performed.  This  BEGIN 
block  would  then  be  ended  and  a  second  BEGIN  block  could  be  used 
to  set  up  the  class  schedules,  when  the  first  BEGIN  block  is 
ended,  the  memory  used  by  it  is  free  to  be  used  again  and  can  be 
used  by  the  second  BEGIN  block.  Using  this  method  problems  that 
would  require  more  memory  than  is  available  on  the  machine  can  be 
solved. 


6.7  BECUBSION 


A  recursive  procedure  is  one  which  calls  or  invokes  itself. 
Many  problems  can  be  solved  using  recursion  and  some  can  only  be 
solved  by  the  use  of  recursion.  A  recursive  procedure  consists  of 
two  states.  The  first  is  the  ending  condition  or  case  where  the 
answer  is  known.  The  second  is  the  recursive  state  where  the 
procedure  calls  itself  with  a  simpler  problem  that   the   original 
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problem. 


GRDS:PBOC  OPIIONS(MAIN)  ; 
GET  LIST  (N)  ; 

/*  READ  THE  NUMBER  OF  STUDENT  BECOBDS  TO  EE  */ 
/*  PROCESSED  */ 

L:BEGIN; 

DCL  1  STUDENT  (N)  f 

2  ST_NAME  CHAR(30)  , 
2    COURSES  (10)  , 

3  GRADES  CHAR (1) , 
3  CRS_NAME  CHAR<10) , 
2  GPA  FIXED  EINARY<20,  10)  ; 


/*  STMTS  TO  READ  INFORMATION,  DO  THE  */ 
/*  REQUIRED  CALCULATIONS  AND  OUTPUT  THE  */ 
/*  THE  RESULTS  */ 


END  L; 
END  GRDS; 


FIGURE  6.5  -  GENERAL  LAYOUT  OF  GRADING  PROGRAM 


A   good  example  of  recursion  is  the  computing  of  N  factorial 
which  is  defined  as 

(N)   (N-1)   (N-2)  ...  (2)   (1)  (6.14) 

The  ending  condition  for  this  problem  is  when  N  has  a  value  of  1. 
The  factorial  cf  N  at  this  point  is  simply  1.  The  recursive  step 
is  then  that  N  factorial  is  egual  to  N  times  <N-1)  factorial  for 
all  other  numbers.  Before  this  value  can  be  computed  a  value  must 
be  obtained  fcr  (N-1)  factorial.  So  the  procedure  is  repeated.  It 
is  easy  to  see  that  finding  (N-1)  factorial  will  be  done  in  the 
same  way  as  finding  N  factorial,  but  the  problem  is  easier  -  the 
number  whose  factorial  is  being  found  is  one  less  than  before. 
Applying  this  procedure  again  and  again  will  eventually  reach  the 
point  of  finding  the  factorial  of  1,  which  is  know.  The  steps  for 
finding  N  factorial  can  be  represented  as  follows: 
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r-  1  if  N<2 

N  factorial  =   |  (6.15) 

«•-  N  *  (N-1)  factorial  otherwise 

writing   these   steps   as  a   procedure,  obtains  the  procedure  of 
Figure  6.6. 


FAC:PROC(N)  RECURSIVE  RETOR NS ( FIXED  DEC); 
DECLARE  <N,ANS)  FIXED  DEC; 
IF  N<2  THEN  RET0flN(1) ; 
ANS=N*FAC(N-1)  ; 

RE1URN  (ANS)  ; 
END; 


FIGURE  6.6  -  RECURSIVE  PROCEDURE  TO  COMPUTE 
N  FACTORIAL 


Suppose   that   FAC   was   an   external   procedure   and   was 
referenced  by 

X  =  FAC  (3) ;  (6.16) 

External  to  the  block  of  memory  for  the  main  procedure,  a  new 
block  of  memory  would  be  set  up  for  FAC.  A  pointer  would  be  set 
from  this  block  to  x  to  show  where  FAC  should  return  its  value. 


I  :    1    I        I  (6.17) 

1  X=_<4 i     ANS=_  | 

1  :  3<+ +-N=3    | 

t 1    c J 
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The  statements  are  then  executed.  The  check  on  N  being  less  than 
2  is  made  and  found  to  be  false  so  ANS  is  given  the  value  of  N 
times  FAC  (N-1) ,  or 


r      t        r         — t   r — i 

|  :   |   |  ANS=3*_<-+ — ^  ANS=_  | 

I  X=_<  +  -H  |   |         |  (6.18) 

J  :  3<+--+-N=3    2<-+ — +-N  =  2    | 


In   this   second   call  of  FAC  the  test  for  N  being  less  than  2  is 
made  and  fails  sc  ANS  is  set  to  N  times  FAC(N-1)  giving 


r      i        i i   r  i   r 1 

1  :    ||  ANS=3*_<-+ — i     ANS=2*_<-+ — i    ANS=_  J 

I  X=.<4— 1  II  II         |    (6.19) 

i  :  3<+ — +-N=3    2<--f — +-N=2    1<- J- — +-N=1    | 

t J     L J     c J  L J 


The  check  is  made  to  see  if  N  is  less  than  2  and  it  is,  so  a 
value  of  1  is  returned  to  the  previous  call  of  FAC.  This  causes 
ANS  to  be  set  to  2. 


r      i   i l   r        i 

|  :    |   |  ANS=3*_<-+ — -t  ANS  =  2  | 

I  X=_<+-- i  |   |         |  (6.20) 

!  :  3<+ — +-N=3    2<-+ — +- N  =  2    1 


The  value  of  ANS  is  then  returned  to  the  place  where  FAC  had  been 
called  with  N=2.  This  causes  the  previous  value  of  ANS  to  get  the 
value  6- 


r  -    ^   r-  ^ 

J  :    ||  ANS=6  | 

I  X=_<+— i  J  (6.21) 

|  :  3<+--+-N=3  J 


This  value  of  6  is  then  returned  and  given   to   X   giving   X   the 
value  of  3  factorial. 
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r    *   i 

1  :    I 
i  x=6   | 

1  :     I 
i 1 


(6.22) 


To   reverse   a   character  string  recursively  is  quite  easy. 

First,  the  ending  condition  is  found.  If  a  character  string  has  a 

length  of  1  or  less  characters  then  the  reverse  of  that  character 

string  is  the  original  string.  The  reverse  of  any  other  character 

string  is  just  the  reverse  of  that  character  string  with  the 
first  character  removed,  and  the  first  character  concatenated  on 
the  €nd  or 


r-  ST  IF  LBNGTH(ST)<=1 


BEW2BSE(ST)  -  | 


(6.23) 


•--  REVERSE(SUBSTR(ST,2) )  |  J  SUBSTR  (ST,  1,  1) 
OTHEBWISE 


Written  as  a  procedure  this  yields  the  program  of  Figure  6.7. 


REVERSE:PROC<ST)  RECDRSIVE  RETURNS (CHAR (256)  VARYING); 
DCI(T)  CHAB(256)  VARYING,  ST  CHAR  (*)  VARYING; 
IF  LENGTH{ST) <=1  THEN  RETURN(ST); 
T=REVERSE<SUBSTR {S,2))  J  J SUBSTR (S,  1,1)  ; 
RETURN  (T)  ; 
END; 


FIGURE  6.7  -  RECURSIVE  PROCEDURE  TO  REVERSE  A 
CHARACTER  STRING 
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CHAPTER  7  ADVANCED  TECHNIQUES 


Discussed  in  this  chapter  ace   several   advanced   techniques 
that  are  normally  not  used  by  beginning  programmers. 


7.1  THE  ON  STATEMENT 


The   ON   statement  has  the  two  general  forms  given  in  figure 
7.1.  The  option,  SNAP,  results  in  a  printing  of   a   list   of   all 


FORM  1  -  ON  •CONDITION1  {SNAP}  SYSTEM; 
EORM  2  -  ON  'CONDITION1  (SNAP)  ON-UNIT 

FIGURE  7.1  -  GENERAI  FCRMS  OF  THE  ON  STATEMENT 


procedures  that  are  active  at  the  time  the  condition  is  raised. 
SYSTEM  means  to  take  the  standard  system  action  of  that 
condition.  The  cn-unit  can  be  a  single  unlabeled  statement  except 
for   a   DO,   IF,   FEIUBN,   or   another  ON  statement.  It  can  be  an 
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unlabeled  BEGIN  statement. 

The  execution  cf  an  ON  statement  does  not  result  in  the  on- 
unit  being  executed.  The  on-unit  is  associated  with  the  specified 
condition  and  when  the  specified  condition  is  raised  the  on-unit 
is  then  executed.  Commonly  used  conditions  are: 

1)  CHECK  (NAME  {,NAME}  )  -  NAME  is  the  name  of  a  simple 
variable,  array,  structure,  or  label.  The  CHECK 
condition  is  raised  whenever  an  assignment  is  made  to 
one  of  the  specified  names  that  is  a  simple  variable, 
element  of  an  array  or  element  of  a  structure  or  just 
before  execution  of  the  statement  identified  with  a 
specified  label  name.  The  CHECK  condition  is  used 
mainly  to  obtain  debug  output  and  results  in  the 
identifier  name  being  printed  with  any  value  that  it 
might  have.  Upon  the  termination  of  the  on-unit,  if 
given,  execution  returns  to  the  point  where  the 
condition  was  raised  and  the  program  continues. 

2)  ENDFILE (FILE-NAME)  -  FILE-NAME  is  the  name  of  an 
input  file  (e.g.  SYSIN) .  This  condition  is  raised  when 
a  GET  statement  is  executed  and  nc  more  data  remains  in 
the  specified  file.  Upon  completion  of  the  on-unit,  the 
program  is  continued  to  be  executed  with  the  statement 
immediately  following  the  GET  statement. 

3)  FLOH  -  This  condition  is  raised  at  any  point  in  the 
program  when  statements  are  not  executed  in  their 
normal  numeric  order.  This  cccurs  in  the  execution  of 
CALL,  DO,  GC  TC,  RETURN,  and  IF  statements  and  in 
function  references.  Upon  completion  of  the  on-unit  the 
program  continues  where  the  condition  was  raised. 


7.2  LABEL  VARIABLES 


LABEL  variables  are  used  when  a  GC  TO  statement  must  cause  a 
transfer  to  several  different  places  in  the  program.  LABEL 
variables  are  declared  by 

DECLARE  VARIABLE-NAME  LABEL;  (7.1) 
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The   specified   variable-name  can  then  be  assigned  any  label  name 
within  the  program.  An  example  of  its  use  is  shown  in  Figure  7*2. 


DECLARE  X  LAEEL; 

IF  A>B  THEN  X=HERE; 
ELSE  X=THEBE; 


GO  TO  X; 

HERE:; 
THEBE:; 


FIGURE  7.2  -  SAMPLE  PROGRAM  USING  LABEL 
VARIABLES 


X  is  assigned  the  label  HERE  or  THERE  depending  on  the  results  of 
the  IF  statement.  The  GO  to  statement  will  result  in  transfer  to 
either  HEBE  or  THERE  depending  on  which  label  X  has  been 
assigned.  Label  arrays  can  also  be  declared  and  initial  values  of 
labels  can  be  given  in  the  DECLARE  statement  if  desired. 


7.3  CCNTBCLLED  VABIABLES 


CONTBOLLED  variables  cannot  be  used  in  PL/C.  They  are  part 
of  the  PL/I  language.  A  CONTBOLLED  variable  is  declared  as  shown 
in  Figure  7.3.  A  sample  CECLABE  statement  might  be  - 
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DECLARE  X  FIXED  DECIMAL  CONTROLLED;  (7.2) 


DECLARE  VARIAELE-NAHE  'ATTRIBUTE^  CONTROLLED; 

FIGURE  7.3  -  GENERAL  FORH  OF  THE  DECLARATION  OF  A 
CONTROLLED  VARIABLE 


A  CONTROLLED  variable  does  not  exist  in  the  program  until  the 
programmer  specifies  so  by  using  an  ALLOCATE  statement  - 

ALLOCATE  X;  (7.3) 

This  causes  the  variable  x  to  be  set  up  in  memory.  Values  can  now 
be  given  tc  the  variable. 

X=1;  (7.4) 

If  another  ALLOCATE  statement  occurs  for  X,  the  current  value  of 
X  is  "pushed  dowc"  and  saved.  A  new  X  is  created  and  can  now  be 
assigned  values. 

ALLOCATE  X;  (7.5) 

X=10; 

This  X  variable  is  continued  to  be  used  until  a  FREE  statement  is 
encountered  which  destroys  the  current  variable. 

FREE  X;  <7.6) 

This  results  in  the  variable  X  which  contains  the  value  of  10 
being  destroyed.  The  previous  value  of  X  which  was  "pushed  down" 
is  now  used,  sc  X  has  a  value  of  1.  Freeing  a  CONTROLLED  variable 
that  does  not  exist  (i.e.,  has  not  been  allocated)  will  result  in 
an  execution  error  that  will  terminate  execution  of  the  program. 
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7.4  POINTER  AND  BASED  VARIABLES 


These  vaiiables  also  can  only  be  used  in  PL/I.  POINTER 
variables  are  used  in  linking  items  together  in  a  specified 
order.   POINTER   variables   are   declared  as  shown  in  Figure  7.4. 


DECLARE  VARIABLE-NAME  POINTER; 

FIGURE  7.4  -  DECLARATION  OF  POINTER  VARIABLES 


POINTER  variables  can  cnly  be  assigned  machine  addresses  of  BASED 
variables.  BASED  variables  are  declared  as  shown  in   Figure   7.5. 


DECLARE  VARIABLE-NAME1  BASED  (VARIABLE-NABE2)  ; 
FIGURE  7.5  -  DECLARATION  OF  EASED  VARIABLES 


BASED  variables  must  be  freed  and  allocated  like  controlled 
variables.  When  a  BASE!  variable  is  allocated  it  is  referenced  by 
using  the  BASE  variable.  For  example,  suppose  the  following 
variables  have  been  declared  - 

DECLARE  CI  POINTER; 

DECLARE  1  AA  BASED(Q),  (7.7) 

2  VAL  FIXED  DECIMAL, 

2  LINK  POINTER; 

When  AA  is  allocated,  Q    is  assigned  its  address. 

ALLOCATE  AA;  (7-8) 
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results  in  Q  being  given  the  Machine  address  of  the  structure  AA. 
To  refer  to  the  values  in  AA  the  following  fora  aust  be  used  - 

Q->VAL  =  10;  (7-9) 

Q->LINK  ■  NULL; 

This  causes  the  current  variable  VAL  to  be  assigned  10  and  the 
value  of  LINK  to  be  set  to  NOIL.  NULL  is  an  address  that  does  not 
occur  in  the  machine  and  is  one  that  can  be  used  for  tests.  •Q->* 
is  used  to  tell  the  computer  to  use  the  locations  of  VAL  and  LINK 
that  are  based  or  pointed  to  by  Q. 

If  AA  is  allocated  again,  Q  is  changed  to  point  tc  the  new 
AA.  The  old  value  cf  Q  is  lost  forever.  To  keep  that  value  it 
aust  be  teaporarily  stored  in  some  POINTER  variable,  say  Q1. 

Q1  =  C;  (7.10) 

ALLOCATE  AA; 

Q  nov  points  to  the  new  AA  and  Q1  to  the  previous  AA. 

Q->LINK  =  Q1;  (7.11) 

will  cause  the  twc  structures  being  linked  together  so  that  the 
following  appears  in  memory 


I  I 

i  I 

V  V  (7.12) 


r  l  r 1 

I    VAL   -    |  J    VAL    =   | 

1     LINK + — >|     LINK + — >NULL 

t J      L J 


To   FREE  a  BASED  variable,  the  specific  variable  being  freed  aust 
be  specified. 

FREE  Q->AA;  (7.13) 

will  free  the  latest  AA  structure  while  - 

FREE  G1->*A;  (7.14) 

will  free  the  first  AA  structure. 
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7.5  CHARACTER  TO  NUMBER  CONVERSION  AND  VICE  VERSA 


Automatic  conversion  fcon  numeric  characters  to  numbers  and 
numbers  to  characters  is  not  allowed  in  PL/C  as  it  is  in  PL/I-  In 
order  to  do  this  conversion  a  special  form  of  the  GET  and  PUT 
statement  must  be  used.  This  form  uses  the  STBING  option.  Figure 
7.6  shows  a  GET  and  PUT  statement  using  this  option. 


GET  STBING (C)  EDIT (I)  {X (2)  ,F <3) )  ; 
PUT  STBING(D)  EDIT  (I)  (f  (7  ,4)  )  ; 


FIGUBE  7.6  -  SAMPLE  GET  AND  PUT  EDIT  STATEMENTS 
USING  THE  STRING  OPTION 


The  statements  cf  Figure  7.6  are  executed  just  like  any 
other  GET  and  PUT  statements,  except  rather  than  GETting  the 
information  from  data  cards  the  information  is  input  from  the 
specified  character  string,  C,  and  rather  than  PUTting  the 
information  to  the  line  printer  the  information  is  output  to  the 
specified  character  string,  D.  Assume  that  C  and  D  have  been 
declared  to  be  CHAR  (10),  and  both  contain  «xy  247p9rt«.  The  GET 
statement  says  to  go  into  C,  skipping  the  first  two  characters, 
then  converting  the  next  three  characters  into  a  fixed  number  and 
assigning  the  value  to  the  variable  I.  Ihe  execution  of  the 
statement  results  in  I  being  assigned  a  value  cf  24.  The  PUT 
statement  will  take  this  value,  convert  it  into  24.0000  and 
assiqn  it  to  D  giving  D  a  value  of  • 24.0000    •. 

Several  important  things  should  be  noted.  The  STRING  option 
can  be  used  with  any  form  of  the  GET  or  PUT  statement.  SKIP, 
COLUMN,  PAGE,  and  LINE  which  have  no  meaning  in  a  character 
string  cannot  be  used  as  format  specifications  or  options.  A 
SUBSTR  can  be  used  as  the  specified  character  string  if  desired. 
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CHAPTER  8  EXPLANATIONS  OF  THE  PL/C  EBBCB  MESSAGES 


The  following  is  an  explanation  of  the  compile  errors  that 
can  occur  when  running  programs  in  PL/C.  Explanations  of  the 
execution  errors  are  not  given  because  they  tend  to  be  self 
explanatory. 

The  error  messages  appear  as  they  will  on  the  printout  with 
the  exception  of  the  following  words  which  will  be  replaced  by 
variable  inforoaticn: 

*IDEN*  -  a  variable  or  label  name  will  be  printed 
*STRING*  -  a  character  string  will  be  printed 
♦NUMBER*  -  a  fixed  or  floating  number  will  be  printed 
*RTN*  -  the  name  cf  a  subroutine  will  be  printed 
♦LINE*  -  a  statement  number  will  be  printed 
♦ATTRIBUTE*  -  an  attribute  will  be  printed 

A  line  beginning  PROGRAM  CHECK  or  COMPILER  ERROR  indicates  a 
problem  in  the  PL/C  compiler  and  not  a  user  error  (although  it 
most  often  occurs  in  response  to  some  user  error).  Please  notify 
a  T.A.  or  consultant  if  such  errors  occur  so  that  Cornell  can  be 
notified  and  the  prcblem  remedied. 

These  explanations  are  intended  to  assist  beginning  PL/C 
programmers  in  debugging  programs.  The  corrections  which  PL/C 
makes  to  errors  will  often  result  in  new  errors  which  are  totally 
unrelated  to  the  actual  bug  in  the  problem.  For  this  reason  the 
corrections  described  in  this  chapter  and  the  actual  corrections 
made  by  PL/C  should  be  treated  with   skepticism.   Do   not   assume 
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that  PL/C  knows  what  is  wrong  and  accept  the  corrections 
generated.  Each  error  and  correction  should  be  carefully  examined 
to  determine  if  the  action  taken  by  PL/C  is  acceptable  and  truly 
represents  what  the  programmer  desired.  If  the  corrections  do  not 
represent  the  programmer's  desires  a  careful  examination  should 
be  made  to  determine  why  the  error  did  occur. 

The  following  example  are  intended  to  show  how  irrelevant 
error  messages  can  be  generated.  These  examples  are  typical  of 
common  errors  generated  by  beginning  programmers. 


EXAMPLE  1 


In  examining  Figure  8.1,  two  things  should  be  immediately 
noticed.  First#  the  statement 

MAXNBR=-10;  (8.1) 

does  not  have  a  statement  number  on  the  left.  This  implies  that 
the  statement  has  been  ignored.  Second,  all  of  the  error  messages 
refer  to  statements  2  and  3. 

Look  at  the  error  messages  for  statement  2.  These  errors 
seem  to  be  referring  to  some  additional  variable  that  is  being 
declared.  The  seccnd  error  states  that  an  attempt  was  made  to 
declare  a  variable  twice.  The  correction  that  is  made  to  this 
error  is  to  replace  the  variable  with  one  that  PL/C  makes  up, 
namely  $V001$.  The  final  corrected  statement  contains  this 
variable  and  all  others  from  the  original  statements,  but  does 
not  contain  the  attributes  FIXED  DEC  which  were  used.  This 
implies  that  the  attributes  have  also  teen  ignored.  Using  this 
information,  the  location  of  the  problem  is  determined  to  be  the 
third  line  of  the  DECLAKE  statement.  In  examining  the  third  line 
of  the  DECLARE,  the  error  is  guickly  discovered  to  be  that  the 
comment  is  ended  improperly  with  /*  rather  than  */• 

In  discovering  this  error  the  meaning  of  all  of  the  error 
messages  becomes  obvious.  Because  the  comment  on  the  third  line 
of  the  DECLARE  statement  was  not  ended  on  that  line,  the  compiler 
continued  the  comment  until  the   next   */   was   found.   This   was 
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CHAPTER  8  -  EXPLANATIONS  OF  THE  ERROR  MESSAGES  114 


found  three  lines  below,  following 

/*  INITIAL  VALUE  LESS  THAN  ALL  (8.2) 

Included  within  this  long  comment  were  the  attributes  of  the 
DECLARE  statement  and  the  first  assignment  statement  - 

MAXNBR=-10;  (*•-*) 

The  statement 

CCUNT  =  0;  (8.4) 

was  then  found.  Because  the  DECLARE  statement  had  not  yet  been 
ended  with  a  semicolon,  the  compiler  thought  that  COUNT  was 
something  being  declared,  so  a  comma  was  inserted.  The  compiler 
then  discovered  that  COUNT  had  previously  been  declared  so  it 
printed  a  message  to  state  this.  COUNT  was  then  destroyed  and 
$V00  1$  was  substituted  in  its  place.  The  compiler  continued 
looking  for  a  semicolon  and  next  found  an  equal  sign.  Because  an 
egual  sign  cannct  occur  in  a  DECLARE  statement,  a  semicolon  was 
inserted  to  end  the  DECLARE  statement.  All  that  remained  of 
statement  3  was 

=  0;  (8.5) 

Because  a  statement  cannot  start  with  an  egual  sign,  it  was 
thrown  away,  leaving 

0;  (8.6) 

A  statement,  alsc,  cannot  start  with  a  numeric  constant  so  the 
zero  was  thrown  away,  leaving  just  the  semicolon. 
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EXAMPLE  2 


Figure  8.2  exhibits  a  similar  problem  with  comments.  Note 
that  statement  numbers  ace  missing  from  statement  3  to  the  end  of 
the  program.  The  first  error  message  states  that  the  comment  was 
never  ended,  but  a  */  occurs  at  the  end  of  all  comments  in  the 
program.  The  reason  this  error  has  been  given  is  that  the  /  in 
the  last  comment  is  punched  in  column  73  on  the  card.  PL/C  by 
default  reads  only  columns  2  through  72,  sc  the  /  was  never  seen. 

There  are  three  possible  ways  of  insuring  such  problems  do 
not  occur.  First,  a  very  careful  check  should  always  be  made  of 
programs  before  running  them.  Look  carefully  for  comments 
starting  in  column  1  (the  /*  in  this  case  will  signify  the  end  of 
the  program)  and  statements  or  comments  that  extend  past  column 
72.  Second,  specify  BNDRY  as  an  option  on  the  PL/C  card  (see 
Appendix  A) •  This  will  not  allow  comments  and  strings  to  extend 
across  card  boundaries.  Finally,  specify  SOHMGIN=  (2, 80, 1)  as  an 
option  on  the  $PL/C  card.  This  will  allow  punching  of  comments 
and  statements  anywhere  on  the  card  except  in  column  1.  This  last 
solution  is  net  always  the  best  one  to  use,  because  many  users 
prefer  to  punch  sequencing  numbers  in  columns  73  to  80.  These 
numbers  order  the  cards  numerically  in  case  the  deck  should  be 
dropped  so  the  cards  can  quickly  and  easily  be  placed  back  in 
order. 


These  two  examples,  while  only  examining  errors  dealing  with 
comments,  show  the  difficulty  that  exists  in  debugging  programs. 
Debugging  programs  is  a  skill  that  must  be  developed  and  that  can 
only  be  done  by  programming  and  puzzling  over  the  error  messages 
which  result.  Hopefully,  the  following  explanations  will  decrease 
the  puzzling  time. 
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FIGURE    8.2    -    SAMPLE    PRCOGRAM    2    WITH    E8I0BS 
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8.1  VARIABLE  PREFIX  ERRORS 


NUMBER  MESSAGE 


E2     ERROR  LIMIT  EXCEEDED 

(  The  program  has  exceeded  the  maximum  number  of 
errors  specified  by  the  user  or  defaulted  by  the 
system.  Possible  corrections  include 

1.  Eliminate  errors  within  program. 

2.  Increase   the  error   limit   by  changing   the 
•ERROBS=(C,R) •  option  on  the  SPL/C  card.  ) 

E3     LINE  LIMIT  EXCEEDED 

(  The  program  has  printed  more  lines  than  specified 
by  the  user  or  allowed  by  the  system.  Possible 
corrections  include 

1.  If  running  EXPRESS 

A.  Suppress  the  printing  of  the  program  by 
using  the  NOSOURCE/SCDRCE  option  on  the  $PL/C 
and/or  SFROCESS  cards.  This  will  allow 
continued  running  on  EXPRESS. 

B.  Start  running  on  HASP.  Check  the  ID  cards 
and  remo?e  the  •LINES-3501  specification  if 
used. 

2.  If  running  HASP 

A.  Increase  the  » LINES=N«  limit  on  the  ID 
cards.  Default  limit  is  1000. 

B.  Increase  the  •LINES=N«  limit  on  the  $PL/C 
card.  Default  limit  is  2000.  ) 
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E4     PAGE  LIMIT  EXCEEDED 

(  The  program  has  exceeded  the  maximum  number  of 
pages  specified  by  the  user  or  defaulted  by  the 
system.  Possible  corrections  include 

1.  Increase  the  •PAGES=N»  limit  on  the  $PL/C  card. 

2.  Suppress  the  printing  of  the  program  by  using 
the  •NCSOUBCE/SOUBCE1  option  on  the  $FL/C  and/or 
SEBOCESS  cards.  ) 

E5     TIME  LIMIT  EXCEEDED 

(  The  program  has  exceeded  the  maximum  time  specified 
by  the  user  or  defaulted  by  the  system.  Possible 
corrections  include 

1.  Correct  all  other  errors  in  the  program  and  run 
again. 

2.  Check  for  a  possible  infinite  loop  by  adding 
debug  output  statements  to  the  program. 

3.  Increase  •TIME=<M,S)»  limit  on  the  ID  and  $PL/C 
cards  and  run  en  HASP.  ) 

E6     TIME  LIMIT  EXCEEDED  -  PBOBABLE  CCMPILEB  LOOP 
(  See  T. A.  or  a  consultant.  ) 

E7     I/O  EfiROB  *STBING* 

(  A  system  error  has  occurred.  The  *STBING*  given  is 
a  SYNADAF  error  message.  Possible  corrections  include 

1.  See  I. A.  or  a  consultant. 

2.  See  the  appropriate  IBM  system  manual.  ) 

E8     UNABIE  TC  PBOCESS  INCLUDE  COMMAND 
(  Possible  corrections  include 

1.  Make  certain  the  data  set  name  specified  is 
spelled  correctly. 

2.  Check  with  T.A.  to  make  sure  the  data  is  in  the 
computer. 

3.  If  running  on  HASP,  make  certain  the  program 
has  a 

//PLCLIB  DD  DSN=SYS1.EXPRESS-UIXAUX,DISP=SHR 
card  after  the 

//  EXEC  PLC 
card.     ) 

E9     SYMBOl-TABLE  GVEBFLOW.  OSE  LABGEB  REGION  OB  INCBEASE 
TABSI2E 

<  See  T.A.  or  a  consultant.  ) 
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EA     STRING  TOO  LONG  FOB  LINE  IN  AEOVE  MESSAGE  (OK  COMPILER 
ERROR) 

(  Correct  the  error  above    this  one.  If  this  error  re- 
occurs see  I. A.  or  a  consultant.  ) 
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8-2  SY  OR  ND  PREFIX  ERRORS 


NUMBER  MESSAGE 


00  MISSPELLED  KEYWORD 

(  Apparent  misspelling  of  cne  of  the  reserved  words.) 

01  EXTRA  { 

(  PL/C  will  delete  it.  For  example 
PUT  LIST(  (A)  ;  ) 

02  MISSING  ( 

(  FL/C  will  add  it.  for  example 
PUT  LIST  A) ;        ) 

03  EXTRA  ) 

(  EL/C  will  delete  it.  For  example 
X=OD)  ;        ) 

04  MISSING  ) 

(  PL/C  will  add  it.  For  exaaple 
X=(C*D;        ) 

05  EXTRA  COMMA 

(  FL/C  will  delete  it.  For  example 
GE1  LIST  (A,,B) ;         ) 
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06  HISSING  COMMA 

(  PL/C  will  add  it.  For  example 

GET  LIST  (A  B)  ; 
will  become 

GET  LIST(ArB)  ; 
or 

POT  LIST(«IT»S  A  DOG» ) ; 
will  beccne 

POT  LISICIT*  ,S,h. DOG,*)  ; 
where 

POT  LIST(«IT»  »S  A  DOG») ; 
was  wanted.  ) 

07  EXTRA  SEMI-COLON 

(  PL/C  will  delete  it.  For  example 

IF  X=1;  THEN  ... 
will  become 

IF  X=1  THEN  ...  ) 

08  MISSING  SEMI-COLON  (OH  MISOSE  OF  BESEBVED  WORD) 

(  A  semi-colon  is  supplied  by  PL/C.  Frequently  this 
error  is  caused  by  attempting  to  use  a  reserved  word 
as  a  variable  name.  If  this  is  the  case,  change  the 
variable  name  so  it  is  not  a  reserved  word.  Examples 
include 

POT  LIST(A,ON) ; 
where  ON  is  a  reserved  word  or 

X=A  DO  1=1  TO  3; 
where  the  semi-colon  is  missing  ) 

09  MISSING  : 

{  PL/C  will  add  it.  For  example 

X  DO  1=1  TO  10; 
where 

X:DO  1=1  TO  10; 
was  intended.  ) 

0A     MISSING  = 

(  PL/C  will  add  it.  For  example 

A  B«-C; 
where 

A=B*C; 
was  intended.  ) 
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OB     IMPBOPER  ATTRIBUTE  ON  PABAHETEB 

(  A  parameter  declared  id  this  DECLABE  statement  does 
not  match  the  declaration  of  its  corresponding 
variable.  For  example 

Z:PROCEEUBE  OPTIONS (MAIN) ; 
DCL  X  FIXED  DECIMAL; 


P=Q(X)  ; 


Q:PBOCEDUBE<N)     RETURNS  (FIXED    DECIMAL); 
DCL    N    CHAR(*)  ; 


END    Q; 

END  Z; 
where  N  and  X  do  not  match  in  their  declaration.  ) 

OC     INEFFECTIVE  IF 

(  A  pointless  IF  statement  has  been  used.  The  THEN 
clause  is  null  and  no  ELSE  clause  exists.  This  might 
be  caused  by  an  extra  semi-colon.  For  example 

IF  A=B  1HEN;  GO  TO  X; 
where 

IF  A=B  THEN  GO  TO  X; 
was  intended.  ) 

OD     IMPROPER  ENTRY/BETURNS  ATTRIBUTE 

OE     MISSING  END 

{  A  SPROCESS,  SEND  or  the  end  of  the  program  was 
encountered  with  a  block  still  open.  Carefully  check 
the  program  to  be  certain  that  all  DO  loops,  BEGIN 
blocks,  and  PBOCEDUREs  have  END  statements.  It  is 
possible  that  all  the  needed  END  statements  are 
present  with  this  error  being  created  by  a  correction 
to  another  error.  ) 
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OF     HISSING  KEYWORD 

(  PL/C  inserts  what  it  considers  to  be  the  proper 
keyword.  Check  this  statement  carefully  to  be  certain 
that  the  correction  is  what  was  intended.  For  example 

GET  (A,B,C) ; 
would  be  corrected  tc 

GE1  LIST(A,B,C) ; 
with  this  error.  ) 

10  INCOMPLETE  EXPRESSION 

<  A  variable  has  most  likely  been  left  out  of  an 
expression.  For  example 

A=B+C*  ; 
which  was  intended  tc  be 

A=B*C*D; 
but  D  was  not  punched  on  the  card.  ) 

11  MISSING  EXPRESSION 

(   Possibly   the   right   hand   side   of  an  assignment 
statement  is  missing.  For  example 
a=  ;     ) 

12    missing  variable 

(  Could  be  caused  by  not  having  left  hand  side  to  an 
assignment  statement.  For  example 
«OD;     ) 

13  MISSING  ARGUMENT,  1  SUPPLIED 

(  An  attempt  was  made  to  use  a  procedure  or  builtin 
function  without  giving  enough  arguments  (variables) . 
An  example  might  be  the  builtin  function  INDEX  which 
reguires  two  arguments.  An  attempt  was  made  to  use 
the  function  with  only  one  argument.  For  example 

X=INDEX<P)  ; 
which  should  have  been 

X=INDEX  <P,I)  ;       ) 

14  EMPTY  LIST 

(  An  attempt  was  made  to  use  the  GET  or  PUT  statement 
with  no  variables  or  expressions  in  the  list.  For 
example 

GET  LIST{)  ; 
this   could   have   been  caused  by  correction  of  other 
errors.  ) 
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15  IMPROPER  NOT 

(  The  -i  cannot  be  used  as  a  binary  operator  so  -•=  is 
substituted.  For  example 

IF  A-»B  THEN  ... 
will  becoue 

IF  A-=B  THEN  ... 
or 

IF  -A  =  B  THEN  ... 
where 

IF  -<A=B)  THEN  ... 
was  intended.  ) 

16  IMPROPER  ELEMENT 

(  A  variable  or  operator  has  occurred  in  an  improper 
place.  This  error  occurs  frequently  due  to 
corrections  of  ether  errors.  Make  a  good  attempt  to 
find  what  has  caused  this  error  but  if  unable  to  find 
it,  correct  all  other  errors  and  hope  it  disappears.) 

17  IMPROPER  SYNTAX,  TRANSLATION  SUSPENDED 

(  PL/C  get  so  lost  in  trying  to  correct  this 
statement  that  it  gave  up.  It  replaced  the  statement 
by  a  NULL  statement  and  ignored  everything  that 
followed  up  to  the  next  reserved  word  or  semi-colon.) 

18  INCONSISTENT  OPTION,  STATEMENT  DELETED 

<  An  attempt  was  made  to  use  some  option  in  the 
statement  and  it  was  improperly  used.  The  statement 
was  deleted  and  replaced  by  a  NULL  statement.  Reread 
the  explanation  of  the  option  in  the  book  and  try  to 
correct  it.  If  the  first  correction  fails  then  see  a 
grader  or  l.A.  so  they  can  explain  what  is  wrong.  ) 

19  NOT  ENOUGH  CORE,  TRY  LARGER  REGION 

(  The  program  is  too  large  to  be  run  with  the  amount 
of  space  reguested  by  the  user  or  the  default  value. 
See  I.A.,  a  grader  or  a  consultant  to  see  how  to 
increase  the  region  fcefore  making  another  run.  ) 
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1A     NESTING  TOO  DEEP 

(  The  nesting  level  in  the  program  exceeded  the 
capacity  of  PL/C.  The  limits  are 

1.  12  for  IP  statements  (count  all  THEN  and  ELSE 
clauses  within  the  statement  to  determine  the 
level) . 

2.  11  fcr  PBOCEDUBE  s,  BEGIN  s  and  DO  s. 

3.  6  for  factors  in  a  DEC1ABE  statement. 

4.  14  for  parentheses  in  expressions.  ) 

1B     UNACCESSIBLE  STATEMENT 

(  This  statement  cannot  be  reached  during  execution. 
For  example 

GO  TO  X; 

A=B+C; 
The   second   statement  is  (inaccessible.  Either  the  GO 
TO  statement  is  placed   incorrectly   or   a   label   is 
missing  from  the  second  statement.  ) 

1C     KISSING  MAIN  EBOC 

(  A  statement  similar  to  the  following  is  nissing 
from  the  start  of  the  program  - 

NAME: PROCEDURE  OPTIONS (MAIN) ;      ) 

1D     MISSING  PROCEDURE  STATEMENT 

(  This  error  is  normally  the  result  of  too  many  END 
statements  being  in  the  program.  Match  all  DO, 
PBOCEDURE  and  BEGIN  statements  with  the  corresponding 
END  statement  to  aake  certain  they  are  matched 
properly.  Ocassionally  this  error  results  from  other 
errors,  so  correction  of  them  will  eliminate  this 
error.  ) 

1E     MISSING  SPRCCESS  (OR  EXTRA  ENE) 

(  Either  a  SPROCESS  card  has  been  omitted  between 
external  procedures  or  an  extra  END  statement  exists 
(see  error  1D  above) .  ) 
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IF     MISPLACED  ENTRY  STATEMENT 

(  Check  to  make  certain  that  the  entry  statement  is 
net  contained  in  a  BEGIN  block  or  in  an  iterative  DO 
loop.  ) 

20  IMPROPER  OPTICNS(S) 

(  An  improper  or  invalid  option  has  been  used  on  a 
$PL/C,  $PROCESS  or  SOPTIONS  card.  Possible 
corrections  include 

1.  See  if  the  option  is  legal. 

2.  Check  the  spelling  and  use  of  the  option. 

3.  See  T. A.  or  a  consultant.  ) 

21  IMPROEER  FORMAT  ITEM 

(  The  current  statement  is  a  PUT  or  GET  EDIT 
statement,  some  illegal  format  specification  is  used 
in  the  second  set  of  parentheses.  ) 

22  IMPROPER  I/O  PHRASE 

(  Something  is  very  wrong  with  the  current  GET  or  PUT 
statement.  Check  for  proper  use  of  parenthesis  and 
keywords.  This  error  can  be  generated  if  an  attempt 
is  made  to  use  GET  or  PUT  as  an  identifier.  ) 

23  IMPROPER  TO  PHRASE 

(  Something  is  very  wrong  with  the  TO  clause  of  the 
current  DO  statement  or  an  attempt  has  been  made  to 
use  TO  as  an  identifier.  ) 

24  IMPROPER  EY  PHRASE 

(  Something  is  very  wrong  with  the  BY  clause  of  the 
current  DO  statement  or  an  attempt  has  been  made  to 
use  BY  as  an  identifier.  ) 

25  IMPROPER  WHILE  PHRASE 

(  Something  is  very  wrong  with  the  WHILE  clause  of 
the  current  DO  statement  (there  should  be  parenthesis 
around  the  condition)  or  an  attempt  has  been  made  to 
use  WHILE  as  an  identifier.  ) 

26  IMPROPER  SPECIFICATION 

(  The  iteration  specification  of  the  DO  statement  is 
in  error.  Only  TO,  BY  or  WHILE  clauses  should  be 
used.  ) 
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27  MULTIPLE  DECLABATION 

(  An  attempt  has  been  nade  to  redeclare  an 
identifier.  PL/C  will  create  a  dummy  identifier  to 
replace  this  one.  ) 

28  IMPBOPEB  *ATIRIBUTE*  ATTRIBUTE  FOB  *IDEN* 

(  The  *ATTRIBUTE*  indicated  cannot  be  applied  to  this 
identifier  (*IDEN*)  due  to  previous  attributes.  This 
error  is  generated  in  a  DECLARE  statement  and  might 
be  caused  ty  PL/C  corrections  to  other  errors  in  that 
statement.  ) 

29  IMPROEER  FACTORING 

(  Most  likely  caused  by  mismatched  parenthesis  in  a 
DECLARE  statement.  ) 

2A     IMPROEER  DIMENSION 

(  An  illegal  dimension  has  been  specified  for  an 
identifier  in  a  DECLARE  statement.  Remember  that 
variable  dimensions  can  only  be  given  and  used  in 
BEGIN  blocks  and  internal  or  external  procedures. 
This  error  can  be  caused  by  corrections  that  PL/C  has 
made  previously  io  the  statement.  ) 

2B     IMPROEEB  PRECISION 

(  The  precision  value  that  is  being  applied  to  a 
variable  is  illegal.  This  error  can  be  generated  by 
corrections  PL/C  makes  to  other  errors.  ) 

2C     IMPROPER  SCALE 

(  The  scale  value  that  is  being  applied  to  a  variable 
is  illegal.  This  error  can  be  generated  by 
corrections  PL/C  makes  to  other  errors.  ) 

2D     IMPROEER  VARYING  ATTRIBUTE 

(  An  attempt  «as  made  to  apply  the  VARYING  attribute 
to  a  variable  that  is  not  CHARACTER  or  BIT.  This 
error  can  be  generated  by  corrections  PL/C  makes  to 
other  errors.  ) 

2E     IMPROEER  FILE-NAME 

(  The  identifier  in  the  file  phrase  is  not  a  valid 
file-name.  See  T.A.  or  a  consultant.  ) 
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2F     EXTERNAL  NAME  TOO  LONG 

(  A  maximum  of  7  characters  is  allowed.  See  T.A.  oc  a 
consultant.  ) 

30  IMPROPER  INIT  ATTRIBOTE 

(  Attempt  has  been  Bade  to  initialize  a  variable  to 
some  value  incompatible  with  what  it  was  declared  as. 
Such  as  initializing  a  fixed  decimal  variable  to  a 
character  string.  This  error  can  be  generated  by 
corrections  PL/C  make  to  other  errors.  ) 

31  IMPRCEER  STRUCTURE  LEVEL 

{  The  structure  being  declared  is  constructed 
improperly  or  a  stray  integer  has  occurred  in  the 
DECLARE  statement.  This  error  can  be  generated  by 
corrections  PL/C  makes  to  ether  errors.  ) 

32  IMPRCEER  ATTRIBUTE  IN  STRUCTURE 

(  Major  and  minor  structure  names  cannot  have  type 
attributes.  This  error  can  be  generated  by 
corrections  PL/C  makes  to  other  errors.  ) 

33  TOO  MANY  IDENTIFIERS 

(  PL/C  allows  a  maximum  of  88  identifiers  in  a  single 
factor  or  structure.  ) 

34  IMPROPER  THEN  OR  ELSE 

(  A  THEN  or  ELSE  clause  has  occurred  without  an  IF 
statement.  This  can  be  caused  by  attempting  to  use 
THEN  or  ELSE  as  identifiers  or  forgetting  DO  groups 
as  follows 


IF  A=B  THEN  P=Q; 
R=S; 
ELSE  A=T; 


This  error  would  result  with  the  ELSE  clause  placed 
as  shown.  What  was  most  likely  intended  was  (where  a 
DO  group  was  missing) 


IF  A=E  IHEN  DO; 

P=Q; 
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R=S; 
END; 
ELSE  A=T; 


or   (where   the   second   assignment 
misplaced) 


R=S 

IF  A=B  THEN  P=Q; 
ELSE  A=T; 


statement 


was 


This  error  is  also  generated  by  corrections  PL/C 
makes  to  ether  errors.  ) 

35  IMPROPER  THEN  OR  ELSE  UNIT 

(  The  statement  used  as  the  THEN  or  ELSE  clause  is 
not  allowed.  If  it  is  a  THEN  clause  a  NULL  statement 
will  be  substituted.  An  ELSE  is  just  eliminated. 
Statements  that  cannot  be  used  as  THEN  or  ELSE 
clauses  include  END,  PROCEDURE,  and  DECLARE.  ) 

36  HISSING  THEN 

(  A  THEN  is  missing  from  the  IF  statement.  This  can 
be  caused  as  follows 

IF  A=B;  THEN  GO  TO  X; 
where 

IF  A=B  THEN  GO  TO  X; 
was  intended.  ) 

37  IHPROEER  CHECK  OR  NOCHECK 

(  The  prefix  has  been  applied  to  a  statement  other 
than  BEGIN  or  PROCEDURE.  The  prefix  will  be  deleted.) 

38  IHPBOtER  PREFIX  ORDER 

<  This  is  a  warning  that  the  specified  order  will 
result  in  an  error  if  run  with  PL/I-F,  but  it  will 
execute  properly  under  PL/C.  ) 

39  EXTRA  LABEL 

(  This  occurs  when  more  than  one  label  is  given  to  a 
PROCEDURE  statement.  For  example 

X:Y:PROCEDURE  OPTIONS <MAIN) ;       ) 
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3A     IMPROPER  LABEL 

(  The  label  on  the  statement  is  illegal.  It  might 
start  with  a  numeric  character  or  contain  too  many 
characters.  ) 

3B     HISSING  LABEL  OB  ENTRY  NAME 

(  A  label  has  not  been  placed  on  a  PROCEDURE  or  ENTRY 
statement.  PL/C  will  generate  a  label  for  this 
statement.  ) 

3C     IMPROPER  ON-CCNDITION 

(  This  error  is  often  the  result  of  starting  an 
assignment  statement  with  a  left  parenthesis.  For 
example 

(X=Y;     ) 

3D     IMPROPER  ON-UNIT 

{  This  statement  is  not  allowed  with  an  ON  condition. 
PL/C  will  supply  a  BEGIN  and  END  statement  to  make  it 
legal.  ) 

3E     IMPROPER  SPACE 

(  'NO*  was  improperly  separated  from  the  rest  of  the 
keyword.  The  space  will  fce  removed.  For  example 

NO  CHECK 
will  become 

NOCHECK   ) 

3F     PL/I  FEATURE  NOT  IN  PL/C 

(  An  attempt  was  made  to  use  a  feature  of  PL/I  which 
has  not  yet  been  implemented  in  PL/C.  ) 

40  FEATUBES  INCOMPATIBLE  WITH  Pl/I-F  HAVE  BEEN  USED 

(  A  PL/C  feature  has  been  used  that  cannot  be  used 
with  PL/I-F.  This  is  a  warning  to  the  user.  ) 

41  INCOMPATIBLE  OPTION 

(  An  option  that  can  be  used  with  the  given  statement 

has   been  used  improperly  or  an  attempt  has  been  made 

to  use  something  that  is  not  an  option  for  the 
statement.  ) 

42  MISSING  OPTION 

(  A  reguired  option  has  not  been  given.  ) 
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43  IMPROPER  LOGICAL  UNIT 

(  This  is  generated  under  DOS  only.  It  means  that  an 
improper  logical  unit  in  MEDIUM  option  of  the 
ENVIRONMENT  attribute  has  teen  used.  ) 

44  MISSING  DECIMAL  INTEGER 

45  *NCN-*  BCUND/LENGTH  EIELE 

(  A  *  must  be  given  for  the  subscript  bound  or  string 
length.  An  expression  cannot  be  used.  This  normally 
occurs  when  declaring  a  string  or  array  parameter  in 
a  procedure.  ) 

46  DECLARATION  FOR  ENTRY  *IDEN*  DOES  NOT  AGREE  WITH 
CORRESEONDING  PROCEDURE  OR  ENTRY  POINT 

47  PROCEDURE  *IDEN*  IS  NOT  PRESENT 

<  A  reference  to  the  specified  procedure  has  been 
made  but  the  procedure  has  not  been  found.  This  can 
be  caused  by  a  simple  misspelling  or  by  an  improperly 
placed  procedure.  ) 

48  *-LENGTH  NOT  ALLOWED.  256  USED 

(  The  variable  being  declared  cannot  have  a  *  for  the 
string  length.  256  has  been  used  in  place  of  the  *•) 

49  TCO  MANY  DIGITS  IN  EXPONENT 

(  A  maximum  of  two  digits  can  be  used  in  an 
exponent. ) 

4A     ILLEGAL  EXPONENT 

<  An  illegal  character  has  occurred  following  the 
•E«.  ) 

4B     ILLEGAL  BINARY  NUMBER 

(  A  character  ether  than  1  or  0  has  occurred  in  a 
binary  number.  The  number  will  be  treated  as  a 
decimal  nuiber.  ) 

4C     ILLEGAL  USE  OP  COLUMN  1  ON  CABD 

4D     */  NOT  IN  COMMENT 

(  The  */  will  be  ignored.  Check  to  see  if  the  /* 
accompanying  it  has  been  mistyped  or  is  missing.  ) 
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4£     NAME>31  CHABACTEBS 

(  An  identifier  has  been  used  that  is  too  long.  ) 

4F     ILLEGAL  CHABACTEB 

(  Betype  the  card.  Soke  coluon  on  the  card  has  most 
likely  been  punched  with  two  characters  or  a 
character  has  been  used  that  is  not  legal  in  PL/C.  ) 

50  STBING    CONSTANT    BUNS    ACBOSS    CABD    BOUNDABY 

(  A  *  has  been  left  out  somewhere  cr  occurs  beyond 
column  72.  ) 

51  IMBEDDEE  BLANK(S)  IN  OPEBATOB 

(  The  blanks  will  be  ignored.  For  example 

will  become 
*♦   ) 

52  COMMENT  HUNS  OVEfi  CABD  BOUNDABY 

(  A  */  will  be  supplied  and  all  kinds  of  errors  will 
result  if  the  comment  continues  on  the  next  card 
without  a  starting  /*.  Make  sure  consents  end  on  each 
card  or  use  the  NOBOUNDABX  option  on  the  SPL/C  card. 
) 

53  2  DECIMAL  POINTS  IN  NUHBEB 

(  The  number  will  be  ended  before  the  second  decimal 
point.  ) 

54  EXPONENT  BUNS  ACBOSS  CABD  BOUNDABY 

(  Numbers  must  be  typed  entirely  on  one  card.  The 
exponent  will  be  ignored.  ) 

55  SPACE  HISSING  BETWEEN  NUMBEB  AND  LETTEfi 

(  A  space  will  be  inserted.  This  could  be  due  to  a 
missing  operator  or  starting  an  identifier  with  a 
numeric  character.  ) 

56  MISSING  */  BEFOBE  END  OF  FILE  CB  CONTBOL  CARD 

(  Make  certain  a  */  is  not  beyond  column  72.  ) 

57  INVALID  EIT  STBING 

(  A  character  other  than  a  0  or  1  has  occurred  in  a 
bit  string.  ) 
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58  MISSING  QUOTE  BEFORE  END  OF  FILE  OR  CONTROL  CARD 

(  Make  certain  that  the  quote  has  not  been  left  out 
or  has  not  been  placed  beyond  column  72  on  a  card.  ) 

59  STRING  LENGTH>255 

(  The  character  or  bit  string  contains  too  many 
characters.  ) 

5A     MISPLACED  *MEND  CARE 

(  A  JMEND  card  is  missing  following  a  MACRO.  ) 

5B     ERROR  STACK  OVERFLOW  -  MESSAGE  (S)  LOST 

(  Correct  as  many  errors  as  possible  and  run  again. 
If  this  error  re-cccurs  see  T- A.  or  a  consultant.  ) 

5C     TABSIZE  TOO  LARGE.  DEFAULT  USED 

(  Decrease  the  size  of  the  TABSIZE  opticn  on  the 
$PL/C  card  or  increase  the  core  size  specified  for 
the  program.  ) 

5D     CETION(S)  NOT  ALLOWED  AT  THIS  INSTALLATION 

(  A  opticn  specified  on  a  $PL/C,  SPROCESS  or  $OPTIONS 
card  is  prohibited.  ) 

5E  TOO  MANY  SIGNIFICANT  DIGITS,  16  USED 

5F  TOO  MANY  SIGNIFICANT  DIGITS,  53  USED 

60  EXPONENT  TOO  LARGE 

61  NUMBER  TOO  SMALL 

62  NUMBER  TOO  LARGE/SMALL,  *NUNBEB*  USED 

(  Either  0  or  10**75  will  be  used,  as  appropriate.  ) 

63  MISSING  *MEND  BEFORE  END  OF  FILE  OR  CONTROL  CARD 

64  MISSING  MACRO  NAME 

65  MISSING  %i    BEFORE  END  OF  FILE  OR  CONTROL  CARD 

66  MACRO  NAME  ILLEGAL  OR  ALREADY  IN  USE 

67  MISSING  PARAMETER  NAME  IN  MACRO  DEFINITION 

68  MACRO  PARAMETER  NAME  >31  CHARACTERS.  FIRST  31  USED 
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69  TOO  MANY  MACRO  PARAMETERS.  LIST  TRUNCATED 

6A     MACRO  PARAMETER  NAME  APPEARS  TWICE  IN  LIST 

6B     SYMBOL  TABLE  AREA  OVERFLOW.  INCREASE  CORE  AVAILABLE 
(  See  T. A.  or  grader.  ) 

6C     ILLEGAL  CHARACTER(S)  ON  CARD.  BLANK(S)  OSED 

(  Retype  card  because  soae  colusns  have  more  than  one 

character  typed  in  then  or  a  character  has  been   used 

that  is  net  legal  in  PL/C.  ) 

6D     MARCO  EXPANSION  CAUSES  REPRINTING  OF  ABOVE  LINE 

(   Warning   that   the   above   line   has   been  feinted 
twice.) 

6E     DYNAMIC  CORE  OVERFLOW  DURING  MACRO  EXPANSION. 
INCREASE  REGION 

(  See  T.A.  cr  grader.  ) 

6F     SCANNING  OF  AEOVE  LINE  TERMINATES  IN  COLUMN  *NUMBEB* 
(  If  unable  to  figure  out  why  see  T.A.  or  grader.  ) 

70  COMPILER  ERROR  —  ILLEGAL  INTERNAL  MACRO  PARM  ID 

.  (   see  T.A.  or  a  consultant.  ) 

71  MISSING  (  IN  MACRO  CALL 

72  MACRO  ARGUMENT  >256  CHARACTERS.  FIRST  256  USED 

73  TOO  FEW  ARGUMENTS  IN  MACRO  CALL.  NULL  STRING (S) 
SUPPLIED 

7U     MISSING  COMMA  IN  MACRO  CALL 

75  HISSING  )  IN  MACRO  CALL 

76  END  OF  FILE  OR  CONTROL  CARD  WITHIN  MACRO  CALL 
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8.3  SB  PREFIX  ERRORS 


NUMBER  MESSAGE 


40  VARIABLE  NOT  PERMITTED 

(  A  constant  must  be  used  in  this  context-  ) 

41  MRONG  TYPE  FOB  EXPRESSION 

(  Expression  types  are  ARITHMETIC,  STRING,  LABEL  or 
FILE  and  the  wrong  one  has  been  used  here.  ) 

42  WRONG  S1RUCTURE  OB  DIMENSIONALITY  FOB  EXPRESSION 

(  A  simple  (scalar)  variable  is  needed  where  an  array 
or  matching  structure  has  been  used.  ) 

43  ILLEGAL  SUBSCRIPTING 

(  Subscripts  not  allowed  in  this  context.  For  example 
with  a  GET  DATA  statement.  ) 

44  ILLEGAL  USE  OF  PSEUDO-VARIABLES 

45  NAME  NEEDED 

46  ENTRY-NAME  NEEDED 

(  A  CALL  must  have  an  entry  (procedure)  name.  ) 

47  NO  STRUCTURE  APPEARED 

48  STRUCTURES  DO  NOT  MATCH 

(  Attempted  to  set  two  structures  equal  to  each  other 
with  an  assignment  statement  and  the  structures  are 
net  declared  identically.  ) 
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U9     FUNCTION  ARGUMENTS  MISSING 

(  Attempting  to  use  a  function  without  supplying 
values  to  be  used  in  evaluating  the  function.  ) 

UA     OPERAND  OF  BINARY  OPERATOR  *STRING*  HAS  IMPROPER  TYPE 

(  This  error  can  occur  when  attenpting  to  add  a  bit 
or  character  string.  ) 

UB     OPERANDS  OF  BINARY  OPERATOR  *STRING*  DISAGREE  IN  TXPE, 
STRUCTURE  OR  DIMENSIONALITY 

(  This  error  can  occur  when  atteapting  to  add  two 
arrays  or  structures  that  differ  in  size  or  add  a 
character  string  to  a  number-  ) 

UC     OPERAND  OF  UNARY  OPEBATOR  *STRING*  HAS  IMPROPER  TYPE 

(  This  error  can  cccur  when  attempting  to  use  a  ♦  or 
-  with  a  character  or  bit  string.  ) 

UD     SUBSCRIPT  *NUMBER*  OF  *IDEN*  NOT  NUMERIC 

(  The  specified  subscript  might  be  a  character  or  bit 
string.  ) 

4E     *IDEN*  HAS  TOO  MANY  SUBSCRIPTS.  SUBSCRIPT  LIST  DELETED 

(  The  specified  identifier  has  been  used  with  more 
subscripts  than  it  was  declared  to  have.  ) 

4F     *IDEN*  HAS  TOO  FEB  SUBSCRIPTS.  SUBSCRIPT  LIST  DELETED 

{  The  specified  identifier  has  been  used  with  fewer 
subscripts  than  it  was  declared  to  have.  ) 

50  NAME  NEVER  DECLARED,  OR  AMBIGUOUSLY  QUALIFIED 

51  SUBSCRIPT  *NUMBER*  OF  *IDEN*  NOT  SCALAB 

(  Attempting  to  use  an  entire  array  for  the  specified 
subscript.  ) 

52  *IDEN*  HAS  TOC  MANY  ARGUMENTS.  FUNCTION  REFERENCE 
DELETED 

<  The  specified  function  has  been  referenced  with  too 
many  arguments.  For  example 

SIN(X,Y) 
where   the   SIN   function  can  only  have  one  argument, 
i.e.  SIN<X)       ) 
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53  ARGUMENT  *NUMBEB*  OF  FUNCTION  *IDEN*  DISAGBEES  WITH 
CORBESPONDING  PABAMETER 

(  This  sight  occur  when  attempting  to  compute  the  SIN 
of  a  character  string  .  ) 

54  *IDEN*  HAS  TOO  FEU  ABGUMENTS.  FUNCTION  BEFEBENCE 
DELETED 

(  See  SM52  ) 

55  ARGUMENT  *NUMBEB*  OF  FUNCTION  *IDEN*  IAS  *.  ILLEGAL 
ABGUMENT 

56  TABLE  OVEBFLOi.  STATEMENT  DELETED 

(  See  T. A.  cr  grader.  ) 

57  TABLE  OVERFLOW.  STATEMENT  DELETED 

(  See  T.A.  or  grader.  ) 

58  TABLE  OVERFLOW.  STATEMENT  DELETED 

(  See  T.A.  or  grader.  ) 

59  TABLE  OVERFLOW.  STATEMENT  DELETED 

<  See  T.A.  or  grader.  ) 

5A     *IDEN*  HAS  WBCNG  #  OF  SUBSCBIPTS 

(  Occurs  when  attempting  to  set  two  structures  equal 
to  each  other  and  they  differ  in  size.  ) 

5B     MISMATCHED  DIMENSION  ALIO 

(  Attempting  to  set  two  arrays  equal  to  each  other, 
but  they  differ  in  size.  ) 

5C     ILLEGAL  LABEL  VABIABLE  *IDEN* 

(  Attempting  to  use  a  subscripted  variable  as  a  label 
when  it  has  not  been  declared.  Correct  by  declaring 
the  specified  variable  as  being  a  LABEL.  This  could 
also  occur  when  PL/C  is  attempting  to  correct  other 
errors  and  messes  up.  ) 

5D     ILLEGAL  ASSIGNMENT  TARGET 

(  Something  illegal  is  to  the  left  of  the  equal 
sign.) 

5E     ASSIGNMENT  SOURCE  INCOMPATIBLE  WITH  TARGET 

(  Can  occur  when  attempting  to  set  a  character  string 
variable  tc  a  numeric  value,  etc.  ) 
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5P     HAJOfi  STRUCTURE  NAME  NEEDED 

60  DEFAULT  ATTRIBUTES  FOB  ENTBY  NAME  *IDEN*  CONFLICT  WITH 
BETUBNS  OPTION  IN  STHT  *LINE* 

(  Should  be  a  warning  message  not  an  error.  Ignore.) 

61  *IDEN*  IS  ASSUMED  A  VARIABLE,  NOT  A  BUILT-IN  FUNCTION 

(  The  specified  identifier  has  the  same  naae  as  a 
built-in  function.  This  message  just  notifies  that 
the  built-in  function  cannot  be  used  in  this 
program.  ) 
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8.4    XR    PREFIX    ERRORS 


NUMBER  MESSAGE 


62  NOT    ENOUGH    COBE    FOB    CROSS-REFERENCE 

(  See  T.A.  cr  grader.  ) 

63  CROSS  BEFEBENCE  ABBREVIATED  DUE  TO  LACK  OF  SPACE 

(  See  T.A.  or  grader.  ) 

64  COMPILER  ERROR  IN  XREF  PHASE  —  INVALID  STATEMENT  CODE 

(    See   T.A.    or  a   consultant.    ) 
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8.5  CG  PREFIX  EBBOBS 


NUMBER  MESSAGE 


00  FORMAT  HILL  BE  EXECUTED  ONLY  ONCE 

(  The  format  of  the  EDIT  statement  does  not  contain 
format  items  that  would  cause  data  to  be  transferred 
in  or  out.  There  are  no  A,  B,  C,  E,  F  or  B  formats.) 

01  CONSTANT  BOUND,  LENGTH, SUBSCBIPT  CB  ITEBATION  FACTOB 
EXCEEDS  32767  IN  MAGNITUDE.  10  IS  USED 

(  The  value  of  a  variable,  length  of  a  character  or 
bit  string,  subscript  of  a  variable  or  iteration  (DO) 
variable  value  is  too  large.  This  is  a  PL/C 
restriction.  ) 

02  HOBKSPACE  OVEBFLOB  IN  STATEMENT  PBOCESSING 

(  The  combined  nesting  of  BEGIN  and  FROCEDUBE  blocks, 
iterative  DO  groups,  and  IF  statements  is  too  deep. 
Increasing  the  region  size  will  not  help.  The  nesting 
depth  must  be  reduced.  ) 

03  *IDEN*  BEQUIBES  TOO  MUCH  SPACE.  UPPEB  BOUND  OF 
SUBSCBIPT-  *N0MBER*  IS  SET  TO  LCBEB  BOUND 

(  More  than  2**31  bytes  of  storage  would  be  reguired 
for  this  variable  as  it  is  declared.  Decrease  the 
size  of  the  array.  ) 

04  FBIMABY  DATA  STOBAGE  ABEA  FOB  BLOCK  *  *NUMBER* 
EXCEEDS  SIZE  LIMIT  BY  *NUMBER*  BYTES. 

(  Try  adding  some  BEGIN  blocks  just  inside  the  block 
that  is  causing  this  error  or  see  T.A..  ) 
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05  LENGTH  ID  *IDEN*  (  *NUHBER*  )  IS  NOT  IN  PROPER  RANGE. 
80  IS  USED. 

(  An  attempt  has  been  made  to  use  the  specified 
element  of  an  array  that  is  CHARACTER  or  BIT  in  type. 
The  length  of  that  element  is  <0  or  >256.  ) 

06  *IDEN*  REQUIRES  TOO  MUCH  SPACE.  LOWER  BOUND  OP 
SUBSCRIPT.  *NUMBER*  IS  SET  TO  ZERO 

(  Shift  the  array  so  the  lower  bound  is  closer  to 
zero  and  re-submit.  ) 

07  VALUE  IN  RETURN  HAS  ATTRIBUTES  INCOMPATIBLE  WITH  ONE  OR 
BORE  ENTRY  POINTS. 

(  This  is  a  warning  that  execution  error  might  be 
generated  if  this  return  is  used.  A  character  string 
might  be  returned  where  a  number  is  expected.  ) 

08  SEVERE  ERRORS.  EXECUTION  DEIETED. 

(  An  error  already  mentioned  has  made  it  impossible 
to  continue  with  the  program.  ) 

09  CONVERSION  REQUIRED  TO  MATCH  ARGUMENT  *IDEN*  OF  *IDEN* 

(  This  is  a  warning  that  PL/C  will  have  to  do 
conversion  when  executing  the  CALL  to  the  procedure. 
Change  the  declaration  of  the  specified  variables  so 
they  are  declared  identically  and  this  error  does  not 
occur,  otherwise  wrong  answers  might  result.) 

0A     SCALAR  ARGUMENT  SUPPLIED  TO  AGGREGATE  PARAMETER  *IDEN* 
OF  *IDEN*.  (1:10  USED  FOR  AIL  BOUNDS.) 
(  See  T. A.  or  a  consultant.  ) 

0B     WORKSPACE  OVERFLOW  IN  EXPRESSION  PROCESSING 

(  The  program  is  attempting  to  execute  a  statement 
(the  statement  number  is  given  in  the  next  error)  and 

could  not  because   the   expression   is   too   complex. 

Simplify  the  expression  and  re-submit.  ) 

0C     NO  FILE  SPECIEIED.  SYSIN/SYSPRINT  ASSUMED. 
(  This  is  just  a  warning.  Ignore  it.  ) 

0D     *IDEN*  IS  A  PARAMETER  IN  I/C  LIST 

(  This  is  just  a  warning  that  PL/I-F  will  not  accept 
this  statement  as  written.  Ignore  it.  ) 
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OE     BOTH  FORMS  OF  INITIALIZATION  USED  FOB  LABEL  VABIABLE 
♦IDEN* 

(  This  is  just  a  warning  that  PL/I-F  will  not   accept 
this  statement  as  written*  ignore  it.  ) 

OF     STORAGE  CAPACITY  IS  EXCEEDED 

(  See  T.A.,  grader  or  a  consultant.  ) 

10  ILLEGAL  COMPLEX  COMPABE.  BEAL  PABTS  HILL  BE  COMPARED 

(  A  comparison  cannot  be  made  between  the  variables.) 

11  *IDEN*  IS  ILLEGAL  OPEBAND  IN  INITIAL,  LENGTH  OB 
DIMENSION  ATTBIEUTE  OF  STATIC  VABIABLE.  "CONSTANT*  IS 
USED. 

(  The  bounds,  lengths  or  dimensions  of  an  external  or 
static  variable  must  be  a  decimal  constant.  ) 

12  NON-CONSTANT  OPEBAND  (  *IDEN  )  IN  INITIAL  LENGTH  OB 
DIMENSION  ATTBIBOTE  OF  STATIC  VABIABLE. 

(  This  is  a  warning  that  FL/I-F  will  not  accept  this 
statement  as  written.  ) 

13  PL/C  BUILT-IN  FUNCTION  USED. 

(  A  built-in  function  not  included  in  PL/I-F  has  been 
used.  ) 

14  ARGUMENT  TO  'MAX*  OR  «MIN»  IS  COMPLEX.  REAL  PART  USED. 

15  NO  SCALE  FACTOR  ARGUMENT  APPEARED.  RESULT  IS  SET  TO 
FLOAT. 

16  UNNECESSARY  SCALE  FACTOR  ARGUMENT  APPEARED.  RESULT  IS 
SET  FIXED. 

17  ARGUMENT  SHOULD  BE  CONSTANT.  *NUMBER*  IS  USED. 

(  Certain  arguments  to  the  built-in  functions  must  be 
decimal  constants.  ) 

18  ABS  (  "ARGUMENT*  )  >32767.  *NUMBER*  IS  USED. 

(  Constant  argument  of   built-in   functions  must   be 
less  than  32768  in  magnitude.  ) 

19  ARGUMENT  SHOULD  EE  REAL.  IMAGINARY  PART  IS  USED. 

(   The  second  argument  of  complex  built-in  functions 
or  pseudo-variables  must  be  real.  ) 
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1A     ILLEGAL  COMPLEX  ARGUMENT,  REAL  PART  IS  USED. 

(  Certain  functions  are  defined  for  real  arguments 
only.  ) 

1B     ILLEGAL  ARGUMENT  TO  BUILT-IN  FUNCTION.  SHOULD  BE  REAL, 
FIXED  DECIMAL  CONSTANT. 

<  This  is  a  warning  that  EL/I-F  will  not  accept  this 
statement  as  written.  ) 

1C     RESULT  SCALE  EACTOR=  *NUMBER*  >127  IN  MAGNITUDE.  RESULT 
SCALED  INCORRECTLY  TO  1 27*SIGN (*NUMBER*) . 

(  The  scale  factor,  Q,  of  the  result  of  the 
expression  will  be  out  of  the  pernitted  bounds.  PL/C 
has  changed  the  value  so  execution  can  continue.  The 
result  from  this  expression  will  be  wrong.  ) 

1D     PROGRAM  MAY  LOOP  IF  1HIS  FORMAT  IS  EXECUTED 
(  See  error  CGOO.  ) 

1E     VARIABLE  *IDEN*  HAS  *  BOUND  OR  LENGTH  FIELD.  10  IS 
USED. 

(  Only  parameters  can  have  *  for  a  bound  or  length. 
Separate  the  parameters  and  variables  into  two 
DECLARE  statements.  ) 

1F     PARAMETER  *IDEN*  HAS  A  NON-*  BOUND  OR  LENGTH  FIELD 

(  Parameters  must  have  a  *  in  this  field.  Separate 
the  parameters  and  variables  into  two  DECLARE 
statements.  ) 

20  LOWER  BCUND.ON  SUBSCRIPT  *NUHBEB*  OF  *IDEN*  EXCEEDS 
UPPER  BCUND^  (0:10)  IS  USED 

(  Either  the  subscript  bounds  are  reversed  or  a  minus 
sign  has  been  misplaced.  ) 

21  SPECIFIED  (  *KUMBER*  )  TOO  LARGE.  MAX  PRECISION  IS  USED 

(  31  will  be  used  if  the  variable  is  FIXED  BINARY;  15 
will  be  used  if  the  variable  is  FLOAT  DECIMAL.  ) 

22  ARITHMETIC/EOCLEAN  CCNVERSION  INVOLVED. 

23  TOO  MANY  ERRORS  DURING  COMPILATION.  EXECUTION 
SUPPRESSED. 

(  Correct  as  many  errors  as  possible  and  re-submit. 
If  error  re-occurs  see  T.A.  cr  grader.  ) 
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24     COMPILER  ERROR  DURING  CODE  GENERATION.  PROGRAtt  ABORTED 
(  See   T.A.  or  consultant.  ) 
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Listed  belov  are  options  that  are  available  to  the  user  to 
specify.  The  default  action,  if  one  exists,  is  listed  in 
parentheses.  The  options  can  be  given  in  any  combination,  in  any 
order,  separated  by  commas  and/or  blanks  on  the  $PL/C  card.  These 
options  can  also  be  used  on  SPROCESS  cards,  which  must  occur 
before  every  external  procedure  and  $OPTIONS  cards,  which  can  be 
placed  anywhere  in  the  program  to  change  the  current  options.  If 
sore  options  are  to  be  specified  than  can  fit  on  one  card, 
subsequent  cards  can  be  used  by  placing  a  $  in  column  1  and 
leaving  columns  2  and  3  blank.  Individual  options  cannot  be  split 
over  a  card  boundary. 


ATB,  (NOATS) 

Controls  the  printing  of  an  alphabetical  listing  of 
identifiers  giving  the  attributes  assigned  to  each 
identifier. 

ALIST,  (NOALIST) 

Controls  the  printing  of  an  assembler  listing  of  the 
generated  object  code. 

AUXIO=n  (can  be  used  only  on  the  $PL/C  card) 

Specifies  the  limits  on  the  number  of  auxiliary  input/output 
operations.  The  supplied  default  is  10000. 
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BNDHY,  (NOBNDHY) 

Controls  whether  coneats  and  literals  (strings)  can  be 
continued  across  card  boundaries.  NOBNDBY  permits 
continuaticn. 

CMNTS,  CMNTS=<  n1,n2,...  ),  (KOCBNTS) 

This  allows  comments  which  start  with  :  to  be  considered  as 
source  statements.  If  parameters  are  given  (1<=ni<=7)  then 
the  comments  beginning  with  nl  are  also  considered  to  be 
source  text. 

CMPRS,  (NOCMPBS) 

The  source  listing  will  be  printed  in  a  compressed  form. 
Certain  page  ejects  will  be  replaced  by  3  line  skips. 

DO«P,  <DUMP=(  d1,d2,„..  )),  NCDUNE  <can  be  used  only  on  the  $PL/C 
card) 

Produces  a  post-mortem  dump.  The  dump  options  are: 

B  -  traceback  of  the  blocks  that  were  active  at 
program  termination. 

S  -  causes  printing  of  the  final  values  of  all 
scalar  variables  in  the  active  blocks.  This 
implies  B. 

A  -  causes  printing  of  the  final  values  of  all 
arrays  in  the  active  blocks.  This  implies  both  S 
and  B. 

F  -  causes  printing  of  a  history  of  the  last  16 
transfers  of  control  (times  when  the  statements 
were  not  executed  in  normal  numeric  order) . 

L  -  causes  printing  of  all  the  labels  used  in  the 
program  and  the  frequency  in  which  they  were 
encountered. 

E  -  causes  printing  of  all  entry  names  used  in  the 
program  and   the   frequency   in   which   they   were 
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called. 

B  -  causes  a  printing  of  the  statistics  on  the  run 
(tine,  core  usage,  a  auxiliary  input/output 
operations,  etc.). 

0  -  causes  a  listing  of  the  first  five  of  fewer 
unread  data  cards. 

Depth  -  is  an  integer  giving  the  limit  en  the 
number  of  active  blocks  for  B,  S,  and  A  dump 
options.  If  0  is  given,  the  depth  is  unlimited. 

The  supplied  default  dump  options  are  (S , F, L,E, U, B) . 

DUMPE,   (DUMPE=(   d1,d2,...   )),  NODUMEE  (can  be  used  only  on  the 
$PL/C  card) 

This  produces  the  post-mortem  dump  only  if  an  error  is 
encountered  during  execution.  The  supplied  default  DUMPE 
options  are  (S, F,L,E,U , B) . 

DUHPT,  (DUHPT=<  d1,d2,...  )),  NODUHPT  (can  be  used   enly   on   the 
$PL/C  card) 

This  produces  the  post-mortem  dump  only  if  execution  is 
terminated  by  an  error.  The  supplied  default  DUHPT  options 
are  <S,F,L,E,U,B) . 

ERBOBS=  (c#e)  (can  be  used  only  on  the  $PL/C  card) 

Specifies  the  error  limits  of  the  program.  If  more  than  c 
errors  occur  during  compilation,  the  program  will  not  be 
executed.  E  errors  during  execution  will  be  allowed  before 
terminating  the  program.  The  default  values  are  (50,50). 

FLAGE,  (FIAGW) 

Controls  the  printing  of  warning  messages.  FLA6I  will  cause 
both  warning  and  error  messages  to  be  printed  while  FLAGE 
will  only  print  errors. 

HDBPG,  (NOHDBPG)  (can  be  used  only  on  the  $PL/C  card). 

Causes  the  printing  of  a  header/separator  page  before  the 
program. 
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10='  Dane  '  (can  be  used  only  on  the  $PL/C  card) 

Up  to  20  characters  can  be  given  inside  the  single  quotation 
narks.  It  is  used  for  identification  in  the  progran  heading 
line. 

LINES=  n  (can  be  used  only  on  the  $PL/C  card). 

Specifies  the  maxinun  nunber  of  lines  to  be  printed  by  the 
progran.  The  supplied  default  is  n=2000.  Note  if  this  option 
is  changed  it  must  also  be  changed  on  the  ID  cards. 

LINECNT=  n 

Specifies  the  nunber  of  lines  to  be  printed  on  each  page  of 
the  source  listing.  The  default  is  60  and  a  nininum  of  21 
can  be  specified. 

(HCALL) ,  NOHCA1L 

Causes  all  nacro  calls  to  be  printed. 
(MTEXT),  NCMTEXT 

Causes  printing  of  all  nacro  text  expansions. 
(OPLIST) ,  NOOPIISI 

Causes  printing  of  all  options  in  effect. 

PAGES=  n  (can  be  used  only  on  the  SPL/C  card)  . 

Specifies  a  page  linit  en  the  printed  output.  Default  linits 
are  10  for  HASP  and  4  for  EXPRESS.  If  this  is  increased  on 
HASP  be  sure  to  also  increase  the  nunber  of  lines  to  be 
printed.  This  linit  cannot  be  changed  on  EXPRESS. 

SOBMGIN-  (s#e,c) 

Controls  the  margins  of  the  cards  for  the  source  progran.  S 
is  the  first  colunn  scanned  and  is  given  a  default  value  of 
2.  E  is  the  last  column  scanned  and  is  given  a  default  value 
of  72.  C  is  the  carriage  control  column  and  is  given  a 
default  of  1. 
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(SOURCE)  ,  NOSOUBCE 

Controls  the  printing  of  the  source  program  listing. 

TIME=  (m,s)  (can  be  used  only  on  the  $PL/C  card). 

Specifies  the  upper  limit  on  the  total  processing  time 
(compilation  plus  execution).  This  limit  is  given  in  m 
minutes  and  s  seconds.  The  default  limits  are  (0,4)  on 
EXPRESS  and  (0,10)  on  HASP-  If  the  HASP  value  is  increased, 
do  not  forget  to  increase  the  time  specification  en  the  /*ID 
cards. 

TABSIZE=  n  (can  be  used  only  en  the  SPL/C  card) 

This  determines  the  amount  of  PL/C  region  allocated  to  the 
symbol  table.  The  number,  n,  is  given  in  full  words.  The 
supplied  default  is  1/2  of  the  usable  area. 

(UDEF) ,  NOUDEF  (can  be  usedonly  on  th€  $PL/C  card) 

Indicates  whether  or  not  PI/C  checks  for  the  use  of  a 
variable  before  being  assigned  a  value.  NOUDEF  suppresses 
this  checking. 

XREF,  (NOXBEF) 

Control  the  printing  of  an  alphabetic  listing  of 
identifiers,  indicating  where  each  is  declared  and  used. 
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APPENDIX  E  -  EUILT-IN  JUNCTIONS 


The  built-in  functions  listed  below  are  available  for  use  in 
PL/C.  All  of  the  functions  are  also  available  for  use  in  PL/I 
except  BAND.  This  list  consists  of  all  of  the  conmonly  used 
function.  For  a  more  complete  listing  consult  AN  INTRODUCTION  TO 
PROGRAMMING  by  Conway  and  Gries  for  the  PL/C  built-in  functions 
and  the  "IBM  Reference  Manual"  for  the  PI/I  built-in  functions. 


ARITHMETIC  FUNCTIONS: 

ABS(X)  -  returns  the  absolute  value  of  X. 

CEIL  (X)   -   returns   the  smallest  integer  that  is  greater  than  or 
egual  to  X.  X  cannot  be  couples. 

COMPLEX (X,Y)  -  returns  a  conplex  number  with  a  real  part  of  X  and 
imaginary  part  of  ¥• 

CONJG(X)  -  returns  a  complex  number  which  is  the  conjugate  of  the 
complex  number  X. 

FLOOR (X)  -  returns  the  largest  integer  not  greater  than  X. 

IMAG(X)  -  returns  the  ioaginary  part  of  X. 

MAX  (X  1,X2, r XN)  -  returns  the  laximun  value   of   the   arguments 

A  I  |   Xl  ^   •  •  •  r   au» 

MIN  (XI ,X2,.. , XN)  -  returns  the  minimum  value  of  the  arguments  X1 , 


APPENDIX  B  -  BUILT-IN  FUNCTIONS  151 


a  z  /  •  *  •  $    ah* 

MOD(X,Y)  -  returns  the  remainder  when  X  is  divided  by  Y. 

REAL(X)  -  returns  the  real  part  of  the  complex  number  X. 

ROUND  (X,N)  -  returns  X  rounded  to  the  nearest  integer  in  N  is  0. 
Returns  X  rounded  to  the  Nth  digit  to  the  right  of  the  decimal 
point  if  N>0.  If  N<0,  X  is  rounded  to  the  Nth  digit  to  the  left 
of  the  decimal  point. 

SIGN(X)  -  returns  a  fixed  binary  value  egual  to  1  if  X>0#  0  if 
X=0,  and  -1  if  X<0. 

TRUNC(X)  -  returns  the  CEIL(X)  if  X<0  and  FLOCR(X)  if  X>0. 
ARRAY  FUNCTIONS: 


ALL(X)  -  returns  a  bit  string  obtained  by  •and-ing»  (6)  all  of 
the  bit  strings  of  array  X  together.  X  must  be  an  array  of  bit 
strings. 

ANY(X)  -  returns  a  bit  string  obtained  by  •or-ing*  (J)  all  of  the 
bit  strings  of  array  X  together-  X  must  be  an  array  of  bit 
strings. 

DIH(X,N)  -  returns  the  •extent*  of  the  Nth  dimension  of  array  X. 
The  extent  is  the  upper  bound  minus  the  lower  bound  plus  one. 

HB0UND(X,N)  -  returns  the  upper  bound  of  the  Nth  dimension  of 
array  X. 

LB0UND(X,N)  -  returns  the  lower  bound  of  the  Nth  dimension  of 
array  X. 

PROD<X)  -  returns  the  product  of  all  the  elements  of  array  X. 

SUM(X)  -  returns  the  sum  of  all  the  elements  of  array  X. 


MATHEMATICAL  FUNCTIONS: 


ATAN(X)  -  returns  the  arctangent  of  X. 
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ATAN(X,Y)   -   returns  the  arctangent  of  X/Y.  X  and  Y  must  both  be 
real  and  must  not  both  be  0. 

ATAN(X,Y)  -  returns  the  arctangent  of  X/Y  in   degrees.   X   and   Y 
must  be  real  and  must  not  both  be  0. 

ATAN  (X)   -   returns   the   hyperbolic  tangent  of  X.  The  value  of  X 
must  be  greater  than  or  equal  to  0. 

COS(X)  -  returns  the   cosine   of   X,   where   X   is   expressed   in 
radians. 

COSD(X)   -   returns   the   cosine  of   X,   where  X  is  expressed  in 
degrees. 

COSH(X)  -  returns  the  hyperbolic  cosine  of  X. 

EXP(X)  -  returns   e**X   where   e   is   the   base   of   the   natural 
logarithm  system. 

LOG(X)   -  returns  the  natural  logarithm  of  X.  X  should  be  greater 
than  0. 

LOG10(X)  -  returns  the  common  logarithm  of  X  (base  10).  X   should 
be  real  and  greater  than  0. 

LOG2(X)   -  returns  the  logarithm  of  X  to  base  2.  X  should  be  real 
and  greater  than  0. 

SIN(X)  -  returns  the  sine  of  X,  where  X  is  expressed  in  radians. 

SIND(X)  -  returns  the  sine  of  X,  where  X  is  expressed  in  degrees. 

SINH  (X)  -  returns  the  hyperbolic  sine  of  X. 

SQRT(X)  -  returns  the  square  root  of  X.   X  should   be   real   and 
greater  than  or  equal  to  0. 

TAN(X)   -   returns   the   tangent   of  1,      where  X  is  expressed  in 
radians. 

TAND(X)  -  returns  the  tangent  of   X,   where   X   is   expressed   in 
degrees. 

TANH(X)  -  returns  the  hyperbolic  tangent  of  X. 
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STBING  FUNCTIONS: 


HIGH  (I)  -  returns  a  character  string  of  length  I,  each  character 
of  which  is  the  highest  character  in  the  collating  sequence: 
hexadecimal  FF. 

INDEX (STBING,  CONFIG)  -  returns  the  leftmost  postion  in  STRING 
where  the  CONFIG  begins.  If  CONFIG  does  not  appear  as  a  substring 
of  STRING,  a  zero  is  returned.  Both  STBING  and  CONFIG  must  be  bit 
or  character  strings. 

LENGTH  (STBING)  -  returns  a  Dumber  giving  the  length  of  the 
STRING, 

LOB (I)  -  returns  a  character  string  cf  length  I,  each  character 
of  which  is  the  lowest  in  the  collating  sequence:  hexadecimal  00. 

BEPEAT(STRING,I)  -  returns  the  string  concatenated  with  itself  I 
times.  Thus  BEPEAT  (• A* #2)  is  "AAA1.  STBING  should  be  a  bit  or 
character  string  and  I  a  decimal  constant. 

STRING  (X)  -  returns  a  string  resulting  from  concatenating  all 
elements  of  X  together.  X  must  be  a  variable,  array  name  or 
structure  composed  entirely  of  bit  or  character  strings. 

SUBSTB(STBING,I,  {,J})  -  returns  the  substring  of  the  STBING 
starting  at  character  I,  ending  at  character  I+J-1.  If  J  is 
missing,  it  is  assumed  to  be  LENGTH  (STBING)-I*1. 

TRANSLATE  (S, B,P)  -  results  in  a  string  identical  tc  S,  except 
that  any  character  cf  S  which  is  in  P  is  replaced  by  the 
corresponding  character  in  B.  For  example 

TBANSLATECXYZW*,  •  ABCD*  ,  •  VWXY  • ) 

results  in  the  string  •CDZB1. 

UNSPEC(X)  -  results  in  a  bit  string  containing  the  internal 
representation  of  X. 

VEBIFY  (STBING, CONFIG)  -  returns  the  position  of  the  first 
character  in  STRING  that  is  net  in  CONFIG.  If  all  characters  from 
STRING  are  in  CONFIG,  it  returns  a  zero. 
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TYPE  CONVERSION  FUNCTIONS: 

BINABY(X)  -  returns  X  with  a  binary  base. 
DECINAL(X)  -  returns  X  with  a  decimal  base. 
FIXED(X)  -  returns  X  converted  to  fixed  point. 
FLOAT (X)  -  returns  X  converted  to  floating  point, 

MISCELLANEOUS  FUNCTIONS: 


DATA  -  returns  a  character  string  of  length  6,  with  the  form 
YYHMDD  where  YY  is  the  current  year,  MM  is  the  current  month,  and 
DD   is  the  current  day. 

LINENO  (FILE_NANE)  -  returns  the  number  of  the  current  line  on  the 
named  file. 

TIME  -  returns  a  character  string  of  length  9  giving  the  current 
time  of  day.  Its  form  is  HHMHSSTIT,  where  HH  is  the  current  hour 
of  the  day,  MM  is  the  number  of  minutes,  SS  is  the  number  of 
seconds,  and  TIT  is  the  number  of  milliseconds. 


BLIOGRAPHIC  DATA 
IEET 


Title  and  Subtitle 


1.   Report  No. 

UIUCDCS-R-77-893 


3.  Recipient's  Accession  No. 


AN   INTRODUCTION  TO  PL/C 


5.   Report  Date 

September   21,    1977 


Author(s) 


Douglas  D.   Dankel,    II 


8-   Performing  Organization  Rept. 

UIUCDCS-R-77-893 


No. 


Performing  Organization  Name  and  Address 

Department  of  Computer  Science 

University  of  Illinois  at  Urbana-Champaign 

Urbana,  Illinois  61801 


10.  Project/Task/Work  Unit  No. 


11.  Contract /Grant  No. 


Sponsoring  Organization  Name  and  Address 

Department  of  Computer  Science 

University  of  Illinois  at  Urbana-Champaign 

Urbana,  Illinois   61801 


13.   Type  of  Report  &  Period 
Covered 


14. 


Supplementary  Notes 


Abstracts 

This  report  examines  the  PL/C  programming  language  and  basic  programming 
techniques.   It  is  intended  for  use  as  a  supplemental  text  in  introductory 
programming  courses  or  for  use  by  advanced  undergraduate  or  graduate  students 
unfamiliar  with  PL/C.   Included  are  descriptions  of  the  PL/C  program  statements, 
program  format,  arrays  and  structures,  simple  searching  and  sorting  techniques, 
character  string  manipulation,  procedures,  advanced  language  features  and 
programming  techniques,  and  an  explanation  of  PL/C  error  messages. 


Key  Words  and  Document  Analysis.     17a.   Descriptors 

PL/C  programming  language,  introductory  text,  programming  techniques,  searching, 
sorting,  arrays,  structures,  error  codes,  error  messages. 


>.   Identifiers/Open-Ended  Terms 


COSAT1  Field/Group 


|  Availability  Statement 

Release  Unlimited 


19.  Security  Class  (This 
Report) 

UNCLASSIFIED 


20.  Security  Class  (This 
Page 

UNCLASSIFIED 


21.   No.  of  Pages 

156 


22.   Price 


*M   NTIS-35   (  10-70) 


USCOMM-DC    40329-P7I 


JAN  2  5  1978 


OCT     2» 


UNIVERSITY  OF  ILLINOIS-URBANA 
510  84  IL6R  no  COO?  no  886  893(1977 
Generating  binary  trees  leilcogrephlcell 


3  0112  088403594 


m 

H 

■ 


tftOjL 


^■1 

no 


^M 


H 


ffll 

I 

SB 
Hi 

am 


■  ■ 


■ 


^B 


